Public Sel As ADODB.Recordset
 
Public Sub Auswahl(SQL As String)
    Set Sel = New ADODB.Recordset
    With Sel
        'Öffnen der Tabelle mit dem angegebenen SQL-String
        .Open SQL, cnDatenbank, adOpenDynamic, adLockOptimistic
    End With
End Sub
'Damit alle Datenbankabfragen mit Auswahl gestartet werden können!
'Ich nehme an, dass Dein Table Daten heißt
Private Sub Command1_Click()
   Dim i        as Integer
   Dim j        as Integer
   Dim k        as Integer
   Dim Zeile as Variant
 
   Auswahl("Show Fields from Daten")
    i = Sel.RecordCount
    Auswahl("Select * from Daten")
    For j = 1 to sel.RecordCount
          For k = 0 to i
                   Zeile = Sel.Fields(i).Value
                   If InStr(Zeile, "ä") > 0 then
                           Zeile = Replace(Zeile, "ä", "ae")
                    End if
                     If InStr(Zeile, "ö") > 0 then
                            Zeile = replace(Zeile, "ö", "oe")
                     End if
                     If InStr(Zeile, "ü") > 0 then
                            Zeile = Replace(Zeile, "ü", "ue")
                     End if
                     Sel.Fields(i).Value = Zeile
                     Sel.Update
           Next k 
           Sel.MoveNext
    Next j
end sub