I'm hoping someone will be able to give me some ideas to work with.

This is what I am getting on a fresh install of Windows XP SP1 Tablet PC
edition.
VFPOleDB installed, and MDAC 2.70.

I installed that Tablet PC edition on a Desktop workstation to see if I
could duplicate a clients error. I'd say yes I have.

This is the results:

Error # 1429
Message: OLE IDispatch exception code 0 from Provider:
Catastrophic failure..
Details: OLE IDispatch exception code 0 from Provider:
Catastrophic failure.
Connection string:
Provider=vfpoledb;Data Source=\POWERCHURCH\PCPLUS9\DATA\;
Line Contents:
Line number: 23
oConn.Errors.Count: 1
Error# 0:Catastrophic failure
Native: **********
Source: Provider


The code: (kept below 75 char wide)

ACTIVATE SCREEN
CLEAR
SET TALK OFF
#DEFINE _CRLF CHR(13)+CHR(10)
#DEFINE _TAB CHR(9)
IF TYPE("oApp")<> "O" OR ISNULL(oApp)
oApp = CREATEOBJECT("Empty")
ADDPROPERTY(oApp,'DataDirectory','C:\pcplus9\data\')
ADDPROPERTY(oApp,'mydocumentsfolder','c:\')
ENDIF

LOCAL oConn as "adodb.connection"
LOCAL oRS as "adodb.recordset"
LOCAL oErr as Exception
LOCAL lcFileName
lcFileName = PUTFILE("",ADDBS(oApp.mydocumentsfolder) + "ErrText","Txt")
oConn = CREATEOBJECT('adodb.connection')
oRS = CREATEOBJECT('adodb.recordset')
cConnStrng = "Provider=vfpoledb;"
cConnStrng = cConnStrng + "Data Source="+oApp.DataDirectory + ";"
oConn.ConnectionString = cConnStrng
try
oConn.Open()
oRS.Open("SELECT * FROM ma",oConn,1,3,1)
oRS.Close()
oConn.Close()
ERROR "No problem detected"
catch to oErr
STRTOFILE('Error # ' ;
+ TRANSFORM(oErr.Errorno) ;
+ _CRLF ,lcFileName,0)
STRTOFILE('Message: ' ;
+ ALLTRIM(oErr.message) ;
+ _CRLF, lcFileName, 1)
STRTOFILE('Details: ' ;
+ ALLTRIM(oErr.details) ;
+ _CRLF, lcFileName, 1)
STRTOFILE('Connection string: ' ;
+ ALLTRIM(cConnStrng) ;
+ _CRLF, lcFileName, 1)
STRTOFILE('Line Contents: ' ;
+ ALLTRIM(oErr.LineContents) ;
+ _CRLF, lcFileName, 1)
STRTOFILE('Line number: ' ;
+ TRANSFORM(oErr.LineNo) ;
+ _CRLF, lcFileName, 1)
STRTOFILE('oConn.Errors.Count: ' ;
+ TRANSFORM(oConn.Errors.Count) ;
+ _CRLF, lcFileName, 1)
FOR ln=0 to oConn.Errors.Count - 1
STRTOFILE(_TAB ;
+ 'Error# ' ;
+ TRANSFORM(ln) ;
+ ":" ;
+ ALLTRIM(oConn.Errors.Item(ln).Description) ;
+ _CRLF, lcFileName, 1)
STRTOFILE(_TAB ;
+ 'Native: ' ;
+ TRANSFORM(oConn.Errors.Item(ln).NativeError);
+ _CRLF, lcFileName, 1)
STRTOFILE(_TAB ;
+ 'Source: ' ;
+ ALLTRIM(oConn.Errors.Item(ln).Source) ;
+ _CRLF, lcFileName, 1)
NEXT
FINALLY
ENDTRY