'in dichiarazioni

Option Explicit
Dim DatDb1 As Connection
Dim WithEvents RecRS As Recordset

' in form load

Set DatDb1 = New Connection
DatDb1.CursorLocation = adUseClient
DatDb1.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=c:\programmi\visualgold\database\db1.mdb;Je t OLEDB: Database;"

Set RecRS = New Recordset
RecRS.Open "select data,debitore,causale,importo,datain,Note from Crediti", DatDb1, adOpenStatic, adLockOptimistic

Set DataGrid1.DataSource = RecRS 'qui setti la datagrid alla connessione
On Error GoTo GoLastError

If Not RecRS.EOF Then RecRS.MoveLast 'solo se vuoi che il cursore si posiziona sull'ultimo record

Exit Sub

GoLastError:
MsgBox Err.Description

mbDataChanged = False

NB chiaramente devi impostare la path per il tuo database e le varie voci della tabella, inoltre se usi un data di access 2000 invece del jet 3.51 usa il jet 4


by
gyonny