Dim con As New Connection
        con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\sv.mdb;"
 
        Dim ergebnis As New Recordset
        ergebnis.ActiveConnection = con
        ergebnis.Open "SELECT * FROM 03529"
        ergebnis.Update
 
        con.Close

mfg monkeystar