Dim db As DAO.Database
Dim dbFile As String
 
dbFile = App.Path + "\main.MDB"
Set db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
Dim SQL1 As String
Dim rs1 As DAO.Recordset
 
SQL1 = db.QueryDefs![Abfrage Kommunikation_haupt_select].SQL
Set rs1 = db.OpenRecordset(SQL1)
rs1.MoveFirst
rs1.Edit
rs1!Kennung = Text1.Text
rs1.Update
rs1.Close