Guest_imported
New member
- Jan 1, 1970
- 0
Code:
Dim cnGold As adodb.Connection
Dim rsAR As adodb.Recordset
Set cnGold = New adodb.Connection
Set rsAR = New adodb.Recordset
With cnGold
.ConnectionString = "Provider=PervasiveOLEDB;Data Source=manordatabase"
.CursorLocation = adUseServer
.Mode = adModeReadWrite
.Open
End With
sql = "select * from staff"
rsAR.Open sql, cnGold, adOpenDynamic, adLockPessimistic
i get an error on the last line as
Run time error -'2147217865(80040e37)';
Table does not exist.
but if i try to execute it as
rsAR.Open "staff", cnGold, adOpenDynamic, adLockPessimistic
i have no problems.
Please help