Brug af function ved arbejde med odbc kald

Hej

Jeg har en temmelig omfattende kode, der henter og sætter ind fra/i en databasefil på en AS/400. Jeg har derfor splittet koden op i mindre Functions til hver enkelt opgave, men hvordan for jeg en af disse functions til at kunne sætte ind i databasen og hente data??? Da alt med query's lå i en function fungerede det fint, men skal man overføre parametre til fuctionerne - og hvilke????

Function ConnectToHost(Key As String) As Integer
   
    'Disconnect if already connected.
    If Key <> "" Then
        Call Result.Close(DB_CLOSE)
        Call Connection.Disconnect
    End If
    'Set objects.
    Set Connection = New ODBCConnection
    Set Query = New ODBCQuery
    Set Result = New ODBCResultSet
    Set Query.Connection = Connection
    Set Result.Query = Query
    '********************************************************************
Call ECH()

og så::::::

Function ECH
    '****************************************
    '* To the ECH-file
    '****************************************
    If Not doc Is Nothing Then
        Print "||| Ivoice Item" + Doc.InvoiceItemLines(0)
        EHCUST =Cint(Doc.CompanyNumber(0))
        EHWHSE =a+"DO"+a   
        EHCPO =a+Left(Doc.rekvno(0), 15)+a
        EHDTYP =a+Doc.InvoiceOrderType(0)+a       
        EOCLS =108
        If Doc.MachineBPCSNo(0) = "" Then
            EHSAL = 140
        Else
            EHSAL = Clng(Doc.MachineBPCSNo(0))
        End If
        If project <> "" Then
            EHSALTMP = Doc.ProjectNo(0)
            EHSAL2 = Clng(2 + Right$(EHSALTMP,4))
        Else
            EHSAL2 = Clng(Doc.EmplNumb(0))
        End If
        CRTDAT = Doc.Created
        CRTDAT =a+ Format(CRTDAT, "dd-mm-yyyy")+a
        GUID = a+""+a
        NYGUID =a+""+a
        ORD = 0
        STATUS = 0
        ASSNOTYP = a+ Fulltrim(Doc.AssignmentNumber(0))+Doc.InvoiceOrderType(0)+a
        '************************************
        '* SQL for ECH
        Query.SQL = "INSERT INTO EDSERVICE.EDECH values("& ASSNOTYP &", "& EHCUST &", "& EHWHSE &", "& EHCPO &", "& EHDTYP &", "& EOCLS &", "& EHSAL &", "& EHSAL2 &", "& CRTDAT &", "& GUID &", "& NYGUID &", "& ORD &", "& STATUS &")"
        Print Query.SQL
        Call Result.Execute
          '****************************************
    End If
   
End Function