Private Sub Form_Load()
With Adodc1
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data "
Source = "C:\1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from GK order by AREA" '++++这句没用。 显示的内容还是按照Adodc1控件

属性的设置“select * from GK”显示的
End With
End Sub

Private Sub Text1_Change()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data "
Source = "C:\1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from GK where ENAME=Text" '+ 同上面一样
End Sub

Private Sub Command1_Click() 点的时候跳出“验证失败”，对象'Refresh'的方法'IAodc'失败
Adodc1.Refresh
DataGrid1.Refresh
End Sub

我想实现的功能是先把数据显示出来,然后在TEXT中输入查询值,找到的话,显示出来.

你用个数据绑定吧,
你那是查询语句出问题了!!!!
ENAME=Text 不能这样写的....
ENAME='" & text1.text & "'"