Visual Basic - No me conecta

Hola a todos!!!!!!!!!! tengo el siguiente codigo

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Provider = "Microsoft.ACE.OLEDB.12.0"
cn.ConnectionString = "User id = admin; password =; data source = cuentas.accdb"
cn.Open
rs.Open "Select * from Afiliados", cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs

Mi problema es que en el datagrid1 no me muestra nada, no da error, pero es como si no me conectara el datagrid1, en cambio un text1 me lo hace sin problema

Set Text1.DataSource = rs
Text1.DataField = "aNombre"

Muchas gracias a todos!!!!

Antes de abrir el recordset, ponle la propiedad

CursorLocation = adUseClient