Veronica ti ringrazio per tutto l’aiuto che mi stai dando

Ora sto combattendo contro un errore cioè alla riga “Do Until rsRecordset.EOF” mi dice che l’oggetto è chiuso… presumo sia rsRecordset.Close a chiudere rsRecordset ma anche se elimino questa stringa mi da sempre l’errore…
Posto il codice magari qualcuno puo’ spiegarmi dove sbaglio…
Public connConnection As New ADODB.Connection
Public rsRecordset As New ADODB.Recordset
Public Sub Connessione()
connConnection.CursorLocation = adUseClient
connConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbTest.mdb"
rsRecordset.CursorType = adOpenStatic
rsRecordset.CursorLocation = adUseClient
rsRecordset.LockType = adLockPessimistic
End Sub
If rsRecordset.State = 1 Then
rsRecordset.Close
End If

'Qui gli associ la select come sorgente dati
rsRecordset.Source = "SELECT * FROM Tabella WHERE PROVINCIA='" & Text1.Text & "'"

'qui apri il record
If rsRecordset.State = 0 Then
rsRecordset.ActiveConnection = connConnection
rsRecordset.Open
End If

Private Sub Command1_Click()
List1.Clear
Do Until rsRecordset.EOF
List1.AddItem rsRecordset("provincia")
rsRecordset.MoveNext
Loop



End Sub