Grilla con código ado

Todo expertos no estuvo funcionando... y me devolvió todas las respuestas que mande... si te llega esta devolvémela así te respondo

A ver acá te mando unos ejemplos... a ver si podes modificarlos para que te funcione a vos...
Si llegas a tener algún inconveniente... me avisas
Public Const BDPath = "C:\Mis documentos\UTN\Diseño de Sistemas\Trabajos Practicos - CORRECCIONES\correccion3\Pruebas Base de Datos\Biblio.mdb"
'Const BDPath = "Biblio.mdb" 'este tambien funciona porque esta en el mismo directorio
Public BDado As New ADODB.Connection
Public RSado As New ADODB.Recordset
Public Sub ConectarAdo()
Dim conecta As String
'conecta = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & BDPath
BDado.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Mis documentos\UTN\Diseño de Sistemas\Trabajos Practicos - CORRECCIONES\correccion3\Pruebas Base de Datos\Biblio.mdb"
BDado.CursorLocation = adUseClient
End Sub
Public Sub crearADO(mSQL As String)
'al poner NEW en declaraciones, no hay que
'poner SET en esta linea
'recordset.Open Source, ActiveConnection, CursorType, LockType, Options
RSado.CursorLocation = adUseClient
RSado.Open mSQL, BDado, adOpenStatic, adLockOptimistic
End Sub
SUPONGO QUE LO QUE TE FALTA ERA LO DE ADUSECLIENT
Private Sub cargar()
ConectarAdo
crearADO ("SELECT cod_Autor, autor ,nacimiento FROM Autores")
Set dtGridAutores.DataSource = RSado
dtGridAutores.Refresh
End Sub
Y así es como se establece el datagrid por código con ado...