Ho questo problema: non riesco a far visualizzare i dati contenuti nel database nella mia datagrid.
Come dal thread in rilievo, ho creato le call per la connessione e la chiusura del db (con una personalizzazione riguardo il file da scegliere, indicato con "pathdati")

codice:
Sub connetti()
      With Cn
      .ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0; Data source = " & pathdati & ""
      


                          'nella prima riga si specifica il provider
                          'nella seconda il percorso al db
      .ConnectionTimeout = 5 'numero dei secondi di timeout
      .CursorLocation = adUseClient 'tipo di cursore
      .Mode = adModeShareDenyNone 'nessuna limitazione
      .Open 'apertura ricordarsi di chiuderla
   End With
   With Rs
      .ActiveConnection = Cn ' imposta a che connessione si riferisce
      .LockType = adLockOptimistic ' imposta il tipo di lock
   End With
End Sub


Sub chiudi()
   Rs.Close
   Cn.Close
End Sub
Dichiarazione del recordset e della connessione
codice:
Option Explicit

Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset
ma quando faccio:
codice:
Call connetti
Rs.Open "SELECT indirizzo FROM Clienti"
Set DG1.DataSource = Rs
Call chiudi
nella datagrid non mi viene visualizzato mai nulla.
Cosa ho sbagliato.
Grazie