Domino connect til AS/400

Hejsa

Jeg prøver at skabe forbindelse mellem et NotesView og vores AS/400 (DB'en ligger herpå!):

  ' Set objects.
    Set Connection = New ODBCConnection
    Set Query = New ODBCQuery
    Set Result = New ODBCResultSet
    Set Query.Connection = Connection
    Set Result.Query = Query
   
    ' Connect to server.
    flag = Connection.ConnectTo("ASDK101")
    If flag = False Then
        Print "No connection found to system LOCAL"
        ConnectToHost = False
        Exit Function
    End If

Men den får ikke hul igennem - er der noget jeg har gjort galt. Jeg har "lånt" det meste af koden fra en anden DB på vores server!