Visual Basic - Crear conección adodc y enlace con datagrid

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?.

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

Gracias.
Salu2

Si tienes instalado el SP4 de VB prueba con:
AccessConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=c:\casino\bdatoscasino.mdb"

Set DataGrid1.DataSource = Rs2

Un saludo