Hi there,
I don't know whether its a bug or a problem.
When I use ODBC Direct Workspace for accessing MS-Access database through VB, I get a static value of -1 for the recordcount property of the recordset. Following is the code. Any suggestion is welcome.

Dim ws As Workspace
Dim db As Database
Dim rs As Recordset

Private Sub Command1_Click()
Set ws = CreateWorkspace("lrmsdb", "lrms", "lrms", dbUseODBC)
Set db = ws.OpenDatabase("lrms_db", dbDriverNoPrompt, False, "ODBC;DATABASE=lrmsdb;UID=;PWD=qwerty;DSN=lrms_db")

Set rs = db.OpenRecordset("select khasra_no from khasra where village = 69 and no_of_settlement = 1", dbOpenDynaset)


rs.MoveFirst
MsgBox rs.RecordCount
i = 1

Do While Not rs.EOF
Debug.Print i, " ", rs.Fields(0)
rs.MoveNext
i = i + 1
Loop
rs.MoveLast

MsgBox rs.RecordCount
End Sub

Thanks in anticipation.
Best Regards,
Purnima
[email protected]