BspADO.vba

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

' Verbindung und Recordset initialisieren
Set cn = New ADODB.Connection
cn.Open "IhrVerbindungsString"
Set rs = New ADODB.Recordset

rs.Open "SELECT * FROM Haupttabelle", cn, adOpenStatic, adLockOptimistic

' Durch das Recordset iterieren
Do Until rs.EOF
    ' Hier können Sie mit den Daten arbeiten
    rs.Fields("Feldname").Value = "Neuer Wert"
    rs.Update
    rs.MoveNext
Loop

' Ressourcen freigeben
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing