查询怎么变空白的

我怎么一点查询DataGrid1就没有记录显示啊
比如输入001,有这个职工编号的,但是就是没显示,一片空白
帮我看下那出的问题

Dim mycon As New ADODB.Connection
Dim myrs As New ADODB.Recordset

Private Sub Command1_Click()
Set myrs = New ADODB.Recordset
myrs.Open "select * from 员工工资 where 职工编号 like '" & Text1.Text & " '", mycon, 1
Set DataGrid1.DataSource = myrs
DataGrid1.Refresh
End Sub

Private Sub Form_Load()
mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\程序设计\人事管理.mdb;Persist Security Info=False"
mycon.Open
Text1.Text = ""
End Sub
--------------------编程问答-------------------- Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 员工工资 where 职工编号 like '" & Text1.Text & " '"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString  = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\程序设计\人事管理.mdb;Persist Security Info=False" 
Text1.Text = ""
End Sub

LZ这做可以实现。刚做的。 --------------------编程问答-------------------- 要使用客户端游标：

Set myrs = New ADODB.Recordset 
myrs.CursorLocation = adUseClient
myrs.Open "select * from 员工工资 where 职工编号 like '" & Text1.Text & " '", mycon, 1 
Set DataGrid1.DataSource = myrs 
DataGrid1.Refresh 
--------------------编程问答--------------------

Dim myrs As ADODB.Recordset 

Set myrs = New ADODB.Recordset       

With myrs

    Set .ActiveConnection = gobjCnn

    .CursorLocation = adUseClient

    .CursorType = adOpenStatic

    .LockType = adLockBatchOptimistic

    .Open "select * from 员工工资 where 职工编号 like '" & Text1.Text & " '" 

end with

Set DataGrid1.DataSource = myrs 

DataGrid1.Refresh

myrs.close

set myrs = nothing

补充：VB ,  基础类