[VB6] Mancata visualizzazione dati in DataGrid

[motogpdesmo16]

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")

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

Option Explicit

Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset

ma quando faccio:

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

[Andriy88]

per ceruperare valori da un db access non fai prima in questo modo?

Option Explicit
    Dim rs As ADODB.Recordset

Private Sub Form_Load()
    Set rs = New ADODB.Recordset
    rs.Open "SELECT Campo1,Campo2 FROM Tabella", "driver={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\database.mdb", 1
    While not rs.EOF and not rs.BOF
        variabile1 = rs("Campo1")
        variabile2 = rs("Campo2")
        rs.MoveNext
    Wend
    rs.Close
End Sub

però non mi ricordo se il ciclo while si fa così
------------------
While condizione
.....
Wend
------------------

Lo scritto come in codice ASP, se per caso non è così cambia solamente il ciclo.

[mgmg]

Non devi richiamare la routine di chiusura fintanto che vuoi vedere i dati nella grid.
Ciao

[motogpdesmo16]

Originariamente inviato da mgmg
Non devi richiamare la routine di chiusura fintanto che vuoi vedere i dati nella grid.
Ciao

grazie mille.Ci sono riuscito adesso. Era proprio quello l'errore.

E' possibile poi, facendo doppio clic sull'elemento dalla datagrid, visualizzare tutta la tupla che corrisponde a quel RagSoc (sarebbe la ragione sociale) in un form del vb??
Grazie