ho un portatile hp con processore celeron 2.6 e 512 MByte di Ram

il db č access ho conficurato il l'origine ODBC con un DSN chiamato agrimed
il seguente č codice che si trove in un modulo

Sub connetti()
With Cn
.ConnectionString = "DSN=agrimed"
.ConnectionTimeout = 5 'numero dei secondi di timeout
.CursorLocation = adUseClient 'tipo di cursore
.Mode = adModeShareDenyNone 'nessuna limitazione
.Open
End With
With Rs
.ActiveConnection = Cn ' imposta a che connessione si riferisce
.LockType = adLockOptimistic ' imposta il tipo di lock
.CursorLocation = adUseClient
'il cursor location č quello di default ovvero quella della connessione
End With

nella form richiamo la sub in questo modo

Private Sub Form_Load()
Call connetti
strsql = "select * from tblClienti"
Rs.Open strsql

Set DataGrid1.DataSource = Rs

End Sub

Ciao Ciao