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

codice:
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.