Private Sub Command1_Click()
Adodc1.RecordSource = "select * from etzlb where mqxm='" & Text1 & "'"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\xt1.mdb;Persist Security Info=False"
End Sub
数据库,表名,字段名等改成你自己。