Function test()
Dim ws As DAO.Workspace
Dim cn As DAO.Connection
Set ws = DAO.CreateWorkspace("MYWS", "", "", dbUseODBC)
Set cn = ws.OpenConnection("MYCN", dbDriverNoPrompt, False, _
  "ODBC;DSN=SAGE;UID=;PWD=")
 
 
Dim rs As Recordset
Set rs = cn.OpenRecordset("SELECT Kunden.Name1 FROM Kunden WHERE Name1 = 'AS'", _
  dbOpenSnapshot)
MsgBox "Kunde: " & rs!Name1
 
End Function