I have several users of an access database that is linked to quickbooks using the Qodbc driver.  Some users have quickbooks installed and others do not.  Those that do not have quickbooks installed, are connecting using the remote connecter.  All other users are using the generic connection method.  The issue I am having is whenever a user opens the database and tries read the data they get an 'ODBC - Call failed' error. 

Relinking the tables seems to fix the issue but this is to cumbersome to use.  I have attempted to use Visual Basic to refresh the connections, but receive the following error when attempting to open the connection:

'Runtime error 3000' Reserved error (-1038) there is no message for this error.'

My connection string is as follows:

strConnect = "ODBC;DSN=QuickBooks_NAData;DFQ=N:\QUICKBOOKS\baselineNov17th.QBW;" & _
    "OpenMode=M;SERVER=QODBC;IBizRemoteConnect=Yes;" & _
    "IBizRemoteURL=http://localhost:2080;IBizRemotePWD=reporting;" & _
    "IBizRemoteConnTimeOut=1000;"

Set dbsODBC = OpenDatabase("", False, False, strConnect)

Please Help

Oh, didn't see the Set dbsODBC line under the connection string, but I believe the sub-procedure should look like this:-

========================================================

Option Compare Database
Option Explicit

Public Sub LinkODBC()
Dim tdfAccess As TableDef
Dim dbsODBC As Database
Dim strConnect As String

strConnect = "ODBC;DSN=QuickBooks_NAData;" + _
    "DFQ=N:\QUICKBOOKS\baselineNov17th.QBW;" + _
    "OpenMode=M;SERVER=QODBC;IBizRemoteConnect=Yes;" + _
    "IBizRemoteURL=http://localhost:2080;IBizRemotePWD=reporting;" + _
    "IBizRemoteConnTimeOut=1000;"

Set dbsODBC = OpenDatabase("", False, False, strConnect)

Set tdfAccess = CurrentDb.CreateTableDef("InvoiceLine", dbAttachSavePWD)
tdfAccess.Connect = dbsODBC.Connect
tdfAccess.SourceTableName = dbsODBC.TableDefs("InvoiceLine").Name
CurrentDb.TableDefs.Append tdfAccess

dbsODBC.Close

Set dbsODBC = Nothing
Set tdfAccess = Nothing
End Sub

========================================================