Dim ws As Workspace
Dim cn As Connection
Dim qd As QueryDef
Dim rs As Recordset
 
Set ws = CreateWorkspace("SQL_Server_ODBC", "", "", dbUseODBC)
Set cn = ws.OpenConnection("SQL_Server_Conn", dbDriverComplete, False, _
  "ODBC;DSN=TestDaten;UID=USERNAME;")
Set qd = cn.CreateQueryDef("")
qd.SQL = "SELECT * FROM Adressen"
qd.ODBCTimeout = 0
Set rs = qd.OpenRecordset(dbOpenForwardOnly)
MsgBox "Name: " & rs!dsName
rs.Close
 
Set rs = Nothing
Set qd = Nothing
cn.Close
Set cn = Nothing
Set ws = Nothing