Dim rsmain As New ADODB.Recordset
Dim katalog As New ADOX.Catalog
Dim SQLcmd As ADODB.Command
 
[...]
rsmain.Open "Main", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rsAbfrage.Open "Main", CurrentProject.Connection, OpenKeyset,adLockOptimistic
[...]
 
katalog.ActiveConnection = CurrentProject.Connection
Set SQLcmd = New ADODB.Command
SQLcmd.CommandText = "SELECT [Main].[Name], [Main].[PA], [Main].[Datum]FROM" & _
  "Main WHERE((([Main].[Name])='" + artk + "'))ORDER BY [Main].[Datum] DESC;"
katalog.Procedures.Append "Query12_abfragemain", SQLcmd
Application.RefreshDatabaseWindow
Set SQLcmd = Nothing
Set katalog = Nothing
 
rsAbfrage.Open "Query12_abfragemain", CurrentProject.Connection, adOpenKeyset, _
  adLockOptimistic
 
[...]

katalog.Procedures.Delete "Query12_abfragemain"