I am connecting to SQL server version 6.5 via ODBC and this code only works
in the 32 bit version. However the second piece of code does work in the 16
bit version.
Any help is much appreciated.

*****************************
Does NOT work in 16 bit
*****************************

db = OpenDatabase("enptydb.mdb")
db.Querydefs.Delete "TEST"
Set qd.CreateQueryDef(Name:="TEST")
qd.Connect = "ODBC;uid=;pwd=;database=MyApps;DSN=SQL65DB;"
qd.SQL = "exec mystoredproc"
qd.ReturnsRecords = true
set rs = qd.OpenRecordset(dbOpenSnapshot)

Do Until rs.EOF
        Debug.Print rs(0), rs(1)
        rs.MoveNext
Loop
rs.close
db.close

and
*****************************
Does NOT work in 16 bit
*****************************

db = OpenDatabase("enptydb.mdb")

Set qd.CreateQueryDef("")
qd.Connect = "ODBC;uid=;pwd=;database=MyApps;DSN=SQL65DB;"
qd.SQL = "exec mystoredproc"
qd.ReturnsRecords = true
set rs = qd.OpenRecordset(dbOpenSnapshot)

Do Until rs.EOF
        Debug.Print rs(0), rs(1)
        rs.MoveNext
Loop
rs.close
db.close

but...
****************************
Does work in 16 bit
***************************
db = OpenDatabase("enptydb.mdb")
db.Querydefs.Delete "TEST"
Set qd.CreateQueryDef("TEST")
qd.Connect = "ODBC;uid=;pwd=;database=MyApps;DSN=SQL65DB;"
qd.SQL = "exec mystoredproc"
qd.ReturnsRecords = True
set rs = qd.OpenRecordset("TEST",dbOpenSnapshot)

Do Until rs.EOF
        Debug.Print rs(0), rs(1)
        rs.MoveNext
Loop

rs.close
db.close

Hi,

Could it perhaps be due to the fact that the ODBC source (SQL65DB) has
been setup under the odbcadm32 as opposed to the odbcadm (16 bit).  I.E
you are pointing to a 32 bit odbc driver??

If so, I would suggest that you set up a 16 bit source called perhaps
SQL65DB16Bit, and recode the function that doesn't work under 16 bit to
point to this new DSN and give it a try.

Otherwise, who knows...

Jimi