Dim ws As Workspace, wspw As Workspace
Dim db As Database
Set ws = DBEngine.Workspaces(0)
 
Set db = ws.OpenDatabase("C:\......
 
Dim a As String, b As String, i As String, j As String,
a = "testName"
b = "0"
 
i = "INSERT INTO messung (messung_name,relevant) VALUES('" & a & "','" & b & _
  "')" 
 
j = "INSERT INTO testtabelle2 (name2,x) VALUES('" & a & "', (SELECT" & _
  "messung.messung_id FROM messung WHERE (((messung.messung_name) = '" & a & "'" & _
  "))) )"
 
ws.BeginTrans
 
 db.Execute (i)
 db.Execute (j)
 
ws.CommitTrans