Not retuening data from SQL Server 2000 after call from Notes application via LSXODBC

Hello.

I have written an agent in LotusScript that is to access an SQL Server 2000 database, Northwind. I have setup an ODBC and my code uses this ODBC name. My problem is that when I run my code I connect to the database and run the SQL statement, I can see, from my meesagebox that I have 4 records returned, which is correct, however when I try to display the value of the field I want, all I get is 'False'

I am at a loss as to why this happening and would appreciate if you could offer some advice as to what it is I am doing wrong.

My code is:

Option Public
Uselsx "*LSXODBC"

Sub Initialize
      
      Dim sess As New NotesSession
      Dim db As NotesDatabase
      Dim doc As Notesdocument
      Dim olddoc, configdoc As Notesdocument
      Dim view, configview As notesview
      Dim con As New ODBCConnection
      Dim qry As New ODBCQuery
      Dim result As New ODBCResultSet
      Dim GstCode As String
      Dim GstName As String
      Dim GstCat As String
      Dim msg As String
      Dim subj As String
      
      Set db = sess.CurrentDatabase
      Dim user1 As String
      Dim password As String
      Dim source As String
      Set qry.Connection = con
      
      Dim sqlStatement As String
      
      password = "password"
      user1 = "cxmAccess2"
      source = "cxmDBTest1"
      'con.ConnectTo source
      con.ConnectTo source, user1, password
      sqlStatement = "SELECT cxmTitle FROM cxmPeople"
      
      Messagebox "con error " & Cstr(con.GetError)
      
      'qry.SQL = |SELECT * FROM Employees|
      qry.SQL = sqlStatement
      
      Set result.Query = qry
      
      
      result.Execute      
      
      result.LastRow
      Dim count As Integer
      count = result.NumRows
      result.FirstRow ' Go back to first
      
      If result.NumRows <> 0 Then
            Messagebox "nbr of records returned are " & Cstr(result.NumRows)
            
            Do
                  result.NextRow
                  If (result.GetError  = DBstsSUCCESS) Then
                        Messagebox "title is " & result.GetValue("cxmTitle")
                  Else
                        Messagebox con.GetErrorMessage, 0, "ODBC Error!"      
                        Messagebox Cstr(con.GetError), 0, "1 ODBC Error!"      
                  End If
            Loop Until result.IsEndOfData
            
      Else
            Messagebox Cstr(con.GetError), 0, "2 ODBC Error!"      
      End If
      
      con.Disconnect
      
End Sub

Kind Regards
Chris Minas