Dim dbsCurrent As Database
Dim xquerytext As QueryDef
Dim xartikelnummern As Recordset
 
 
Set dbsCurrent = OpenDatabase("meinedatabase.dbo")
 
Set xquerytext = dbsCurrent.CreateQueryDef("")
With xquerytext
      .Connect = "ODBC;DSN=nonsens;Description=nonsens;UID=odbc;;APP=Microsoft" & _
        "Office 2003;WSID=WXPD074;DATABASE=meinedatabase"
      .Sql = "SELECT * from..."
      Set xartikelnummern = .OpenRecordset()
      xartikelnummern.MoveFirst
   End With
End Sub