Set oConn = New ADODB.Connection
    Set oRs = New ADODB.Recordset
 
    oConn.Open "Provider=MSDASQL.1;Password=XXX;Persist Security Info=True;User" & _
      "ID=manager;Data Source=Line50;Mode=Read"
 
      oRs.Open "SELECT SALES_ORDER.*, SALES_ORDER.DEL_NAME as DEL_NAME2 ," & _
        "SALES_LEDGER.FAX FROM SALES_ORDER, SALES_LEDGER WHERE" & _
        "SALES_ORDER.ORDER_NUMBER =" & JobNumber & " AND" & _
        "SALES_ORDER.ACCOUNT_REF=SALES_LEDGER.ACCOUNT_REF", oConn

Bin beigeistert!