可以对教材信息进行有效的管理PrivateSubcmdOK_Click()DimsqlAsStringDimrs_loginAsNewADODB.RecordsetDimconnAsNewADODB.Connectionconn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\xs.mdb"IfTrim(text1.Text)=""ThenMsgBox"用户名不能为空，请重新输入！"text1.SetFocu