Hello,
I'm still trying to get this to work.
I'm using Access tabledefs to connect to AS400. I need to refresh the
existing links to different AS400 machines (same tablenames). I need a
DSN-less ODBC connection (not ADO OLE DB) to AS400 from Access. My function
is somehting like this:
Public function ConnectMe() as string
dim db as dao.database
dim sConnect as string
set db = currentdb
sConnect = "ODBC;Driver={Client Access ODBC Driver
(32-bit)};System=MyAS400;Uid=MyID;PWD=MyPassowrd"
db.tabledefs("table1").connect = sConnect
db.tabledefs("table1").RefreshLink
End Function
When I execute this I get the error:
Reserved error (-7778); there is no message for this error.
Any suggestions???
Thank you.
Matthew Wells
MW****@FirstByte.net