程序如下，请补充完整。 Private ADOcn As Connection Private Sub Form_Load() [] ADOcn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:MDB" End Sub Private Sub Command1_Click() Dim strSQL As String Dim ADOrs As [2] Recordset ADOrs.ActiveConnection=ADOcn strSQL="Select From学生基本情况Where学号="+"'"十Textl+"" [3] f[4] ADOrs.EOF Then Text2=ADOrs.Fields("学号") Text3=ADOrs.Fields("姓名") Text4=ADOrs.Fields("籍贯") Else MsgBox"要查询的学号不存在，请重新输人！"，vbOKOnly,"信息提示” Textl =" [5] End If End Sub Private Sub Command2_Click() UnLoad Me End 1421Recordset 程序如下，请补充完整。 Private ADOcn As Connection Private Sub Form_LoadO [lJ AD n. Open "Provider=J\1icrosoft. Jet. OLEDR 4. O;Data Sour l\1D End Sub Private Sub Command1_ClickO Dim strSQL As String Dim ADOrs As [2J ADOrs. ActiveConnection = ADOcn strSQL = "Select 羡From 况Where , " + Text1 It fit [3J If [4J ADOrs. EOF Then Text2 = ADOrs. Fields(" It Text3 = ADOrs. Fields<" It Text4 = ADOrs. Fields<"籍贯 It Else MsgBox" 号不存在 重新 vbOKOnly , "信息提示" Text1 = "" [5J End If End Sub Private Sub Command2_ClickO UnLoad Me End 1421