Aktualisieren einer Access-Datenbank

[Verzweifelte]

Hallo Gernot
So sieht der Code im Moment aus: hat auch einer per Internet so vorgeschlagen. Bekomm aber immer noch die Fehlermeldung,
dass die Datenbank schreibgeschütz ist ;((

Private Sub Speichern()

Dim db As ADODB.Connection
Dim rs As ADODB.Recordset

Set db = New ADODB.Connection
db.Provider = "microsoft.jet.oledb.3.51"
db.Open "H:\Testprojekt\db1.mdb"
         Set rs = New ADODB.Recordset
         rs.Open "Select * from AllgemeinAbfrage where Servername = '" & Svrname & "'", db, adOpenKeyset, adLockOptimistic
         While Not rs.EOF
            rs![Frequenz] = 1111
            rs.MoveNext
         Wend
         rs.Close
         Set rs = Nothing
         db.Close
         Set db = Nothing

End Sub