Conexión a BD sin usar ADODC

[Avellaneda]

Mira, con este sencillo ejemplo creas un recordset conectado a una BD Access y muestras la tabla en un control FlexGrid.

Código:

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
    .ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\LaBaseDatos.mdb"
    .CursorType = adOpenStatic
    .CursorLocation = adUseClient
    .Open "Select * from LaTabla"
End With
Set MSHFlexGrid1.DataSource = rs

La base de datos está en la misma carpeta de la aplicación.