' Datenbank-Objekte
Private oDB As DAO.Database
 
'wird benötigt um die Datenbank zu öffnen
Public Function dbOpen(ByVal sDatabasePath As String) As Boolean
' Datenbank öffnen, falls noch nicht geschehen
On Error GoTo ErrHandler
If oDB Is Nothing Then
Set oDB = DBEngine.OpenDatabase(sDatabasePath)
End If
dbOpen = True
Exit Function
ErrHandler:
MsgBox "Es ist ein Fehler beim Öffnen der Datenbank aufgetreten." & vbCrLf & _
CStr(Err.Number) & " " & Err.Description
End Function
 
'ich bekomme es nicht hin, dass ein Update ausgeführt wird
 
Private Sub cboÜbernahme_Click()
Dim sSQL As String
' Datenbank öffnen
If dbOpen(App.Path & "\Tabellen.mdb") Then
' Recordset-Objekt erstellen
sSQL = "UPDATE Werkzeug SET Werkzeug.PerNr = '2205'  WHERE (((" & _
  "Werkzeug.PerNr)='4711'))"
'sSQL = "UPDATE Werkzeug SET Werkzeug.PerNr = '" & txtalt.Text & "'  WHERE (((" & _
"Werkzeug.PerNr)='" & txtneu.Text & "'))"
 
End If
End Sub