程序如下，请补充完整。 Private Sub Form_Load() [1] "Provider Microsoft.Jet.OLEDB.4.0;Dataource=.mdb;Persist Security Info=False" End Sub Private Sub Command1_Click() Dim strSQL As String [2] 3] =ADOcn Dim ADOrs As New Recordset ADOrs.ActiveConnection ADOcn strSQL="Select*from学生基本情况Where学号="+Textl十"'" ADOrs.Open [4] If Not ADOrs.EOF Then MsgBox“学号已经存在，请重新输人I",vbOKOnly,"信息提示" Text1.SetFocus Else strSQL="Insert Into学生基本情况（学号，姓名，籍贯）" strSQLstrSQL+Values Text 1+","+Text2+",+Text3+"')" [5] Execute strSQL MsgBox"添加成功！"，vbOKOnly,"信息提示" End If End Sub Private Sub Command2_Click() Unload Me End Sub 1364程序如下，请补充完整。 Private Sub Form_LoadO [lJ "Provider = Microsoft. Jet. OLEDB. 4. 0; Dataource =学生. mdb; Persist Security Info=False" End Sub Private Sub CommandLC1ickO Dim strSQL As String [ 2J [3J = ADOcn Dim ADOrs As New Recordset ADOrs. ActiveConnection = ADOcn strSQL = "Select 铃from 况Where /II + Text1 + ' ADOrs. Open [4J If Not ADOrs. EOF Then MsgBox "学号已经存在，请重新输入!"，vbOKOnly , "信息提示" Textl. SetFocus Else strSQL = "Insert Into 基本情况 籍贯 " strSQL = strSQL + " Values ( HI xt 2 /II /II [5J Execute strSQL MsgBox"添加 vbOKOnly , "信息提示" End If End Sub Private Sub Command2一C1ickO Unload Me End Sub 1364