Recordset Update with *.DBF - HOW?

I have strange problem.
I have opened a DBF database and i cant update it.
When i perform simple operation

rs![NR] = "2222"
rs.Update

i doesnt work and i get error to ensure that database exists??!!
(the same DB that i've just opened)
(the same mistake occurs when i want to perform other
simple operation movenext etc.)

Is there another way to update a DATABASE when it is a dBASE file?
What am I doing wrong?


This is how I am opening the file:

Private Sub OpenDB(sFile)

Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset

conn.mode = adModeShareDenyNone
conn.CursorLocation = adUseClient
conn.Open ("Driver={Microsoft dBASE Driver (*.dbf)};" & _
"SourceDB=" & sFile & ";" & _
"SourceType=DBF;Exclusive=No;BackgroundFetch=No;Collate=Machine;")

Dim strSQL As String: strSQL = "SELECT * FROM " & sFile

Set cmd.ActiveConnection = conn
cmd.CommandType = adCmdText
cmd.CommandText = strSQL
rs.LockType = adLockOptimistic
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.Open cmd

Set MSHFlexGrid.DataSource = rs

End Sub
Private Sub OpenDB(sFile)

Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset

conn.mode = adModeShareDenyNone
conn.CursorLocation = adUseClient
conn.Open ("Driver={Microsoft dBASE Driver (*.dbf)};" & _
"SourceDB=" & sFile & ";" & _
"SourceType=DBF;Exclusive=No;BackgroundFetch=No;Collate=Machine;")

Dim strSQL As String: strSQL = "SELECT * FROM " & sFile

Set cmd.ActiveConnection = conn
cmd.CommandType = adCmdText
cmd.CommandText = strSQL
rs.LockType = adLockOptimistic
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.Open cmd

Set MSHFlexGrid.DataSource = rs

End Sub


PLEASE HELP ME
BEST WISHES

Based on personal experience I suggest that you leave ADO and use DAO
to work with dBASE tables. ADO has several known issues whereas DAO
3.51 works fine. This is a short example of how you can update a dBASE
table.

Dim wsp As DAO.Workspace
Dim jdb As DAO.Database
Set wsp = CreateWorkspace("JetWorkspace", "admin", "", dbUseJet)
Set jdb = wsp.OpenDatabase("D:\dBaseDir", False, False, "dBASE IV;")
jdb.Execute "UPDATE Table1 SET NR = '2222' WHERE Id=1"

Regards, Janne Hentschel