Mira...copié tu código y quedó asi...
Código:
Private Sub Form_Load()
Dim res As ADODB.Recordset
Dim rs As ADODB.Recordset
Dim Vari As String
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 res = Nothing
Set res = Miconexion.Execute("Select count(cargo) as var from cargos")
Vari = res("var")
MsgBox (Vari)
Set res = Nothing
Set res = Miconexion.Execute("Select * from cargos ")
x = 0
Do While res.EOF = False
MSFlexGrid1.TextMatrix(x, 0) = id_Cargo
MSFlexGrid1.TextMatrix(x, 1) = cod_cargo
MSFlexGrid1.TextMatrix(x, 2) = cargo
res.MoveNext
x = x + 1
Loop
End Sub
pero me arroja un error :"Run-Time error '381':
Subscript out of range