Code:
Dim db As Database
Dim rst1 As Recordset
Dim rst2 As Recordset
Dim rst3 As Recordset
Dim rs As Recordset
Dim buyHeaderId As Long
Dim wrk As Workspace
Set wrk = DBEngine.Workspaces(0)
Set db = DBEngine.Workspaces(0).Databases(0)
wrk.BeginTrans
Leave a comment: