Esta linea es obligatoria para que los datos se carguen al datagrid dbConex.CursorLocation = adUseClient
'Alguien sabe por que?
Conexion en un modulo bas
Código:
Public dbConex As New Connection
Public Sub Main()
dbConex.CursorLocation = adUseClient
dbConex.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\SYSTEM_DB_01.mdb;Password=;Persist Security Info=false"
Form1.Show
End Sub
form1
Código:
'Debes activar la referencia Microsoft activeX Data object 2.0 library
Dim rsCargo As Recordset
Private Sub Form_Load()
Set rsCargo = New Recordset
rsCargo.Open "SELECT * FROM cargo", dbConex, adOpenStatic, adLockOptimistic
'cargamos el datagrid
Set DataGrid1A.DataSource = rsCargo
End Sub