codice:
res.CursorLocation = adUseClient
    res.Open "Select * from [acconti_cliente]", con, 3, 3
    rs.MoveFirst
        Do
            Set res = con.Execute("Select * from acconti_cliente where ragionesociale = '" & rs.Fields("ragionesociale").Value & "'")
                If res.RecordCount = 0 Then GoTo Loppata

Ho provato questo codice che dovrebbe essere giusto, ma non vuole andare per niente, restituisce sempre e solo -1