Visual Basic - DATAGRID

Buenas Tardes , por favor una mano con esto, quiero hacer una busqueda y que los resultados se vean en un data grid .

Me conecto a BD pero no me muestra los datos este el el codigo que estoy utilizando.

Private Sub Command1_Click()
Stop
sbase = App.Path & "\11.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sbase
rst.Open "SELECT * FROM op", cnn, adOpenStatic, adLockBatchOptimistic

Set DataGrid1.DataSource = rst

a = rst!CI ' esto lo puse para verificar si "a" es igual a la ci de mi rst y si lo hace

Saludos man, veo tu código y creo que le falta algo, pues yo tenía el mismo problema pero lo solucioné agregando la Propiedad CursorLocation del objeto Conecction, por lo que te recomiendo que intentes con el siguiente código y me avisas, ok?

Private Sub Command1_Click()
Stop
sbase = App.Path & "\11.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

cnn.CursorLocation = adUserServer '<------- AQUI LO NUEVO

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sbase
rst.Open "SELECT * FROM op", cnn, adOpenStatic, adLockBatchOptimistic

Set DataGrid1.DataSource = rst.DataSource '<----- AQUI TAMBIEN

Da el siguiente error

error 3001 en tiempo de ejecucion:

Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros