mira..al final pude hacerlo asi
Código:
Private Sub Form_Load()
Dim res As ADODB.Recordset
Dim rs As ADODB.Recordset
Set Miconexion = New ADODB.Connection
Aux = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=D:\desarrollo_cazo\servacar_visual\db\capacita.mdb"
Miconexion.ConnectionString = Aux
Miconexion.Open
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
Consulta = "select * from cargos"
rs.Open Consulta, Miconexion, adOpenForwardOnly, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub