关于vb项目设计 PrivateSubCommand1_Click() DimcnnAsNewADODB.Connection DimstrcnnAsString DimrstAsNewADODB.Recordset DimsqlAsString strcnn="provider=sqloledb.1;integratedsecurity=sspi;database=students" cnn.Openstrcnn sql="select*from班级" Ifxiaoniao=1Then Form1.Caption="class"