Dim wsSQLServer As Workspace
Dim conSQLServer As Connection
Dim qd As QueryDef
Dim MeinRecordset As Recordset
Dim ODBCConnectString As String

Set wsSQLServer = CreateWorkspace("SQL_Server_ODBC", "", "", dbUseODBC)

ODBCConnectString = "ODBC;DSN=DataBaseName;UID=UserName;PWD=PassWord;"
Set conSQLServer = wsSQLServer.OpenConnection("ConName", dbDriverComplete, _
  False, ODBCConnectString)

Set qd = conSQLServer.CreateQueryDef("", "SELECT Name FROM Adressen")
Set MeinRecordset = qd.OpenRecordset(dbOpenSnapshot)
txtName = MeinRecordset!Name
MeinRecordset.Close