[vba] query e ciclo for

[pakylory]

Salve ragazzi,
uso questo script per ciclare il recorset ma non funziona in quanto la SELECT preleva solo il primo record della tabella; cosa sbaglio?
Grazie

    
    Dim rs As New ADODB.Recordset
    Dim sql1 As String
    ' cerca tutti i comuni inseriti
    sql1 = "SELECT nome FROM comuni"
    ' esegue la query
    rs.Open sql1, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

        Dim i As Integer
        For i = 0 To 40
            If Me.nome_comune = rs.Fields(i) Then
                messaggio = MsgBox("Comune esistente!", vbCritical)
                Exit Sub
            End If
        Next i
    ' chiude il recordset
    rs.Close
    ' distrugge il recorset
    Set rs = Nothing

[Sypher]

così letto al volo non vedo il MoveNext

[Sypher]

poi di solito un ciclo sul recordset si fa così

rs.Open sql1, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

while not rs.EOF
   'fai le tue operazioni
   rs.MoveNext  'si passa al record successivo
wend
rs.Close

[pakylory]

Si lo so sono alle prime armi con vb quindi...

Avevo risolto comunque.

Grazie