نمایش اطلاعات پایگاه داده در datagrid

سلام. من می خوام با یک دستور جستجو اطلاعات بدست آمده از پایگاه داده را در یک datagrid نمایش دهم .کد زیر را نوشتم اما کار نمی کنه. لطفا من را راهنمایی کنید.

Private Sub Search_Click()
If Trim(Text9.Text) = "" Then
MsgBox ("ÇÔÊÈÇå :áØÝÇ ÔãÇÑå ÇÓÊÎÏÇãí ÑÇæÇÑÏ ßäíÏ.")
Else
Dim str1 As String
'str1 = "select * from Employee where EmployeeName = " & Val(Trim(Text9.Text)) & " "
str1 = "select * from Employee where WorkLocalNumber = " & Val(Trim(Text9.Text)) & " "
Set rs1 = New adodb.Recordset
rs1.Open str1, cn, adOpenKeyset, adLockOptimistic
Text1 = rs1.Fields(0) & ""
Text2 = rs1.Fields(1) & ""
Text3 = rs1.Fields(2) & ""
Text4 = rs1.Fields(3) & ""
Text5 = rs1.Fields(4) & ""
Text6 = rs1.Fields(5) & ""

Set DataGrid1.DataSource = rs1
Text7.Text = ""
End If
End Sub