ck()
Adodc1.Recordset.MoveFirst
Timer1.Enabled = True
End Sub

Sub xianshi()
Text1.DataField = "學(xué)號"
Text2.DataField = "姓名"
Text3.DataField = "性別"
Text4.DataField = "數(shù)學(xué)"
Text5.DataField = "語文"
Text6.DataField = "英語"
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.AddNew ("學(xué)號")
With Adodc1
.Recordset("學(xué)號") = Text1
.Recordset("姓名") = Text2
.Recordset("性別") = Text3
.Recordset("數(shù)學(xué)") = Text4
.Recordset("語文") = Text5
.Recordset("英語") = Text6
.Recordset.Save
End With
End Sub

Private Sub Timer1_Timer()
If Adodc1.Recordset.EOF = False Then
If Text8.Text = Text7.Text Then
Call xianshi
Else
Adodc1.Recordset.MoveNext
Timer2.Enabled = True
End If
End If
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
If Adodc1.Recordset.EOF = False Then
If Text8.Text = Text7.Text Then
Call xianshi
Else
Adodc1.Recordset.MoveNext
Timer1.Enabled = True
End If
End If
Timer2.Enabled = False

End Sub
這段程序 完全可以滿足你的要求 不過你要 建數(shù)據(jù)庫 嫌麻煩的話 把郵箱給我 我把程序發(fā)給你！！

這里以文本框控件為例。假定您的表或者查詢名稱為“聯(lián)系表”，窗體中有個文本控件名稱為“公司名稱”，那么在公司名稱的更改事件（Change）或者更新后事件（AfterUpdate）中輸入代碼即可，例如：
Private Sub 公司名稱_AfterUpdate()
'第一個地址表示窗體中名稱為“地址”的文本框控件。
'第二個地址為“聯(lián)系表”中“地址”字段。
'第一個公司名稱為“聯(lián)系表”中的字段，第二個為窗體中的名為“公司名稱”的控件。
Me.地址=DLookup("地址","聯(lián)系表","公司名稱='"&Me.公司名稱&"'")
End Sub
*******************************************************************
需要注意的是，以上必須是一一對應(yīng)的。即一個“公司名稱”只能有一個“地址”，如果有多個“地址”則應(yīng)該用組合框來讓用戶自行選擇。——這屬于聯(lián)動菜單部分。

你可以設(shè)置參數(shù)查詢的，就在查詢中設(shè)置。記住你窗體中顯示公司名稱控件的名稱，然后在查詢的公司名稱字段下面的條件中引用該空間。

把查詢窗體的數(shù)據(jù)記錄源指定到你的表，然后【查詢按鈕】代碼如下：
Private Sub 查詢按鈕_Click()
On Error GoTo Err_查詢查詢_Click
Dim cxtj As String '定義查詢條件
cxtj = "" '設(shè)定初始值為空
If Not IsNull(姓名) Then '判斷【姓名】條件是否有輸入的值
cxtj = cxtj & "([姓名] like '" & 姓名 & "') and "
End If
If Not IsNull(年齡) Then '判斷【年齡】條件是否有輸入的值
cxtj = cxtj & "([年齡] like '" & 年齡 & "') and "
End If
If Not IsNull(單位) Then '判斷【單位】條件是否有輸入的值
cxtj = cxtj & "([單位] like '" & 單位 & "') and "
End If
'如果輸入了條件，那么cxtj的最后肯定有" and "，這是我們不需要的，要用LEFT函數(shù)截掉這5個字符
If Len(cxtj) > 0 Then
cxtj = Left(cxtj, Len(cxtj) - 5)
Else
MsgBox "提示：" & vbNewLine & "請先輸入查詢條件！", 4096 + 48, "波濤電腦工作室"
Exit Sub
End If
'先在立即窗口顯示一下查詢條件，然后執(zhí)行查詢
Debug.Print cxtj
Filter = cxtj
FilterOn = True
Exit_查詢按鈕_Click:
Exit Sub
Err_查詢按鈕_Click:
MsgBox "提示：" & vbNewLine & "你要查詢的記錄不存在。" & vbNewLine & "請核對你輸入的條件是否正確。", 4096 + 48, "波濤電腦工作室"
Resume Exit_查詢按鈕_Click
End Sub

。。

Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
Timer1.Enabled = True
End Sub

Sub xianshi()
Text1.DataField = "學(xué)號"
Text2.DataField = "姓名"
Text3.DataField = "性別"
Text4.DataField = "數(shù)學(xué)"
Text5.DataField = "語文"
Text6.DataField = "英語"
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.AddNew ("學(xué)號")
With Adodc1
.Recordset("學(xué)號") = Text1
.Recordset("姓名") = Text2
.Recordset("性別") = Text3
.Recordset("數(shù)學(xué)") = Text4
.Recordset("語文") = Text5
.Recordset("英語") = Text6
.Recordset.Save
End With
End Sub

Private Sub Timer1_Timer()
If Adodc1.Recordset.EOF = False Then
If Text8.Text = Text7.Text Then
Call xianshi
Else
Adodc1.Recordset.MoveNext
Timer2.Enabled = True
End If
End If
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
If Adodc1.Recordset.EOF = False Then
If Text8.Text = Text7.Text Then
Call xianshi
Else
Adodc1.Recordset.MoveNext
Timer1.Enabled = True
End If
End If
Timer2.Enabled = False

End Sub
這段程序 完全可以滿足你的要求 不過你要 建數(shù)據(jù)庫 嫌麻煩的話 把郵箱給我 我把程序發(fā)給你！！

用數(shù)據(jù)表table1做數(shù)據(jù)源，建一窗體(取名窗體1),總建兩組合框A及B，兩組合框的行來源類型選表/查詢。
組合框A的行來源寫sql語句：SELECT distinct [table1].[姓名] FROM [table1]，給組合框取名xingm。
組合框B的行來源寫sql語句：SELECT table1.班級 FROM table1 WHERE (((table1.姓名)=[Forms]![窗體1]![xingm]))
此方法是我程序中用過的，我只用兩字段（姓名，班級)舉例而已，往后字段可以類推。
組合框中有很多技巧，只能自己去摸索。