Visual Basic - Consulta sql

Porque al disparar este eventos con esta consulta en el datagrid no me muestra nada cuando en realidad deberia mostrarme todos los Id que comiencen con lo que contenga Text1.Text????

Por favor ayudaaaaa... Gracias.

Private Sub Command1_Click()
Set recordset = New ADODB.Recordset
recordset.Open "Part", conexionVisual, adOpenDynamic, adLockOptimistic
recordset.Open " select * from part where id = '" & Text1.Text & " % '", conexionVisual, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = recordset
End Sub

Tu problema se puede solucionar con el siguiente codigo :

Private Sub Command1_Click()

Set recordset = New ADODB.Recordset 'Esta linea es importante para cargar la consulta en el datagrid

conexionVisual.CursorLocation = adUseClient

recordset.Open "Select * From part where id = ' " + Text1.Text + " ' ", conexionVisual, adOpenDynamic, adLockOptimistic

Set DataGrid1.DataSource = recordset

End Sub

-----------------
By : raptor_x
-----------------