各位高手好！我正在做毕业设计，请告诉我在adodc中如何用代码编查询，保存代码！！

Question

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\DataCenter.mdb;Persist Security Info=False"
conn.CursorLocation = adUseClient
conn.Open
Set rs = New ADODB.Recordset
   rs.Open "select top 10 fld1,fld2 from table ", conn, adOpenKeyset
end sub

Answer 1

dim con as new adodb.connection
dim rs as new adodb.recordset
con.connectionstring="..."
con.open
rs.open "select * from tablename where ...",con,...,...

Answer 2

Private Sub Command1_Click()
On erorr GoTo handlerr:
t = Combo1.Text
Select Case t
       Case "学号"
       Adodc1.Recordset.MoveFirst
       D = "[" & Combo1.Text & "]" & Combo2.Text & Text1.Text
       Adodc1.Recordset.Find D
       Case "姓名"
       Adodc1.Recordset.MoveFirst
       D = "[" & Combo1.Text & "]" & Combo2.Text & "'" & Text1.Text & "'"
       Adodc1.Recordset.Find D
       Case "年龄"
       Adodc1.Recordset.MoveFirst
       D = "[" & Combo1.Text & "]" & Combo2.Text & "'" & Text1.Text & "'"
       Adodc1.Recordset.Find D
       Case "所在班级"
       Adodc1.Recordset.MoveFirst
       D = "[" & Combo1.Text & "]" & Combo2.Text & "'" & Text1.Text & "'"
       Adodc1.Recordset.Find D
       Case "班主任"
       Adodc1.Recordset.MoveFirst
       D = "[" & Combo1.Text & "]" & Combo2.Text & "'" & Text1.Text & "'"
       Adodc1.Recordset.Find D
End Select
If Adodc1.Recordset.EOF = True Then
MsgBox ("记录没有找到")
End If
Exit Sub
handlerr:
MsgBox ("查询错误")
End Sub

Answer 3

Private Sub Command1_Click()
On erorr GoTo handlerr:
t = Combo1.Text
Select Case t
       Case "学号"
       Adodc1.Recordset.MoveFirst
       D = "[" & Combo1.Text & "]" & Combo2.Text & Text1.Text
       Adodc1.Recordset.Find D
       Case "姓名"
       Adodc1.Recordset.MoveFirst
       D = "[" & Combo1.Text & "]" & Combo2.Text & "'" & Text1.Text & "'"
       Adodc1.Recordset.Find D
       Case "年龄"
       Adodc1.Recordset.MoveFirst
       D = "[" & Combo1.Text & "]" & Combo2.Text & "'" & Text1.Text & "'"
       Adodc1.Recordset.Find D
       Case "所在班级"
       Adodc1.Recordset.MoveFirst
       D = "[" & Combo1.Text & "]" & Combo2.Text & "'" & Text1.Text & "'"
       Adodc1.Recordset.Find D
       Case "班主任"
       Adodc1.Recordset.MoveFirst
       D = "[" & Combo1.Text & "]" & Combo2.Text & "'" & Text1.Text & "'"
       Adodc1.Recordset.Find D
End Select
If Adodc1.Recordset.EOF = True Then
MsgBox ("记录没有找到")
End If
Exit Sub
handlerr:
MsgBox ("查询错误")
adodc1.recordset.updata
End Sub