Visual Basic - adodc o adodb y datagrid

quisiera pegar una consulta a un datagrid a traves de codigo pero no me sale me manda errores tanto usando adodc como usando adodb
de verdad necesito ayuda urgente.
aqui esta el codigo q utilizo

Dim Conn2 As New ADODB.Connection
Dim Cmd2 As New ADODB.Command
Dim Errs2 As Errors
Dim Rs2 As New ADODB.Recordset
Dim i As Integer
Dim AccessConnect As String

AccessConnect = "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=Argen.mdb;" & _
"DefaultDir=C:\Cia\Entrada;" & _
"Uid=Admin;Pwd=;"
Conn2.ConnectionString = AccessConnect
Conn2.Open
Conn2.Close
Conn2.ConnectionString = ""
Conn2.Open AccessConnect
Set Rs2 = Conn2.Execute("SELECT CICCOD, CINUMID FROM PRODUCTOS WHERE CINUMID =" & Text1.Text & "")
DataGrid1.Columns(0) = "ciccod"
DataGrid1.Columns(1) = "cinumid"
DataGrid1.DataSource = Conn2

Done:

Set Rs2 = Nothing
Set Cmd2 = Nothing
Set Conn2 = Nothing
MsgBox "Finalizada la actualización", vbOKOnly, "Finalizado"
Exit Sub

Lo 1º es que no entiendo porque cierras y vuelves a abrir la conexión.
Despues, para enchufar un rs a un grid debes establecer la propiedad CursorLocation del rs a adUseClient y despues no es necesario que ejecutes la consulta, más bien sería:
Rs2.Open "SELECT CICCOD, CINUMID FROM PRODUCTOS WHERE CINUMID =" & Text1.Text & "",Conn2
y luego lo enchufas:
DataGrid1.DataSource = Rs2

Un saludo

hola, al entrar en el foro de programadores y encontrar esta respuesta que me interesa lo qise probar, pero me da error en 'datagrid1.datasource' dice que no encuentra en el miembro de datos o algo asi.
Es necesario tener cargado en el form el datagrid, como.
Si eres tam amable de responderme, tengo un problema con MAESTRA/DETALLES el datagrid al cambiar un valor hay que renovar pero entonces vuelve al primer registro y eso no quiero, alguna solución

Gracias.
Salu2
Private Sub Command1_Click()
Fin = CDate(Text1.Text)
ffin = CDate(Text2.Text)

Dim Conn2 As New ADODB.Connection
Dim Errs2 As Errors
Dim Rs2 As New ADODB.Recordset
Dim i As Integer
Dim AccessConnect As String

AccessConnect = "Driver={Microsoft Access Driver (*.mdb)}; Dbq=bdatoscasino.mdb; DefaultDir=C:\casino"
Conn2.ConnectionString = AccessConnect
Conn2.Open AccessConnect
Rs2.CursorLocation = adUseClient
Rs2.Open "SELECT * FROM datos where fecha between fin and ffin", Conn2
DataGrid1.DataSource = Rs2

MsgBox "Finalizada la actualización", vbOKOnly, "Finalizado"
Exit Sub

End Sub

Private Sub Form_Load()
Set Rs2 = Nothing
Set Cmd2 = Nothing
Set Conn2 = Nothing
End Sub