Pulling in info from a outside dataset

Good morning all.

I am trying to pull information from an ODBC dataset into Lotus Notes.  Eventually this info will transfer into a form.  I built the code below and when I ran a test, it stated that it was going to run on 9812 documents.  Good thing I ran a test.  Any help would be appreciated.  I tried to build this from scratch hoping I could teach myself a little bit about Lotus Notes Script.

Thanks

Option Public
Uselsx "*lsxodbc"

Sub Initialize
     Dim Con As New ODBCConnection
     Dim qry As New ODBCQuery
     Dim result As New ODBCResultSet
     Dim msg As String
     Dim BankNumber As String
     Dim Obligor As String
     Dim Obligation As String
     Dim CustName As String
     Dim CollType As String
     Dim Item As String
     Dim CollDesc1 As String
     Dim CollDesc2 As String
     Dim PrePay As String
     Dim EMailAdd As String
     Dim GoodtoSend As String
     Dim OrigDate As String
     
     Set qry.Connection = con
     Set result.query = qry
     con.ConnectTo("OARFAutomation")
     qry.SQL= "SELECT tblMasterOARFControl.BANK," _
     & "tblMasterOARFControl.OBLIGOR, tblMasterOARFControl.OBLIGATION, " _
     & "tblMasterOARFControl.CUSTNAME, tblMasterOARFControl.COLLTYPE, " _
     & "tblMasterOARFControl.MATDATE, tblMasterOARFControl.ITEM, " _
     & "tblMasterOARFControl.FirstOfCOLLDESC1, tblMasterOARFControl.FirstOfCOLLDESC2," _
     & "tblMasterOARFControl.OFFCRCODE, tblMasterOARFControl.PREPAY, " _
     & "tblMasterOARFControl.txt_EMAILADD, tblMasterOARFControl.txtGoodtoSend, " _
     & "tblMasterOARFControl.txtOrigSendDate " _
     & "FROM tblMasterOARFControl WHERE (((tblMasterOARFControl.txtGoodtoSend)=-1));"
     result.execute
     
     If result.IsResultSetAvailable Then
          Do
               result.NextRow
               BankNumber = result.GetValue("BANK", BankNumber)
               Obligor= result.GetValue("OBLIGOR",Obligor)
               Obligation=result.GetValue("OBLIGATION",Obligation)
               CustName=result.GetValue("CUSTNAME",CustName)
               CollType=result.GetValue("COLLTYPE",CollType)
               Item=result.GetValue("ITEM",Item)
               CollDesc1=result.GetValue("FirstoFCOLLDESC1",CollDesc1)
               CollDesc2=result.GetValue("FirstoFCOLLDESC2",CollDesc2)
               EMailAdd=result.GetValue("txt_EMAILADD",EMailAdd)
               
          Loop Until result.IsEndofData
          result.close(DB_CLOSE)
     Else
          Messagebox "There were no OARFs available for distribution from the previous date."
          Exit Sub
     End If
     con.disconnect
     
End Sub