Lotus Notes - Conectar a SQL SERVER --

Buenas tardes,
Intento conectarme a SQL Server importando en el Globals del formulario LSXODBC y usando las clases ODCBConnecction, ODBCQuery...
El origen de datos ODBC es correcto, ya que las INSERT y UPDATE funcionan correctamente, es la SELECT la que no consigo que funcione. Lo quiero para ir importando documentos de una tabla y creándolos en Notes.
Pero no sé porqué la SELECT no me devuelve nada.

El código resumido es éste:
///
Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("OrigenODBC")
qry.SQL = "SELECT * FROM TABLA1"
result.Execute

If result.IsResultSetAvailable Then

Do
result.NextRow
cod= result.GetValue("CODIGO", cod)
Set doc = db.CreateDocument
doc.Form = "Formulario1"
doc.campo1 = cod
Call doc.Save( True, True )
Loop Until result.IsEndOfData

result.Close(DB_CLOSE)
Else
Messagebox "error"
End If
///

¿Alguien puede ayudarme?
Muchísimas gracias.

Intenta con algo así!!!

Set qry.Connection = con

connectTo= True

sql = |select * from | & TABLE

query.SQL = sql
Set result.Query = query

If result.Execute() Then

Else

End If

espero te sirva