VB 6 ปุ่ม ค้นหา จากช่อง textbox ค้นหาจาก access ให้มาโชว์ใน MGHFlexGrid ช่วยดูทีครับ มันไม่ยอมโชว์ข้อมูล

Dim my_row As Integer
Set rs = New ADODB.Recordset
Statement = "select * from Myuser where User_id ='" & txtID.Text & "'"
rs.CursorLocation = adUseClient
rs.Open Statement, Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
my_row = 1
If rs.RecordCount <= 0 Then
    MsgBox "ไม่พบข้อมูลที่ต้องการคนหา", vbOKOnly + vbExclamation, "แจ้งการทำงาน"
Else
mfgnameList.Rows = rs.RecordCount + 1
rs.MoveFirst
 Do While Not rs.EOF
        txtID.Text = rs.Fields("User_ID")
        txtName.Text = rs.Fields("User_Name")
        txtPass.Text = rs.Fields("User_Pass")
        txtStatus.Text = rs.Fields("Status")
        txtAdd.Text = rs.Fields("Address")
        txtTel.Text = rs.Fields("Tel")
        rs.MoveNext
                my_row = my_row + 1
            Loop
    End If
Set rs = Nothing
End Sub