RDO syntax error problem

I found a source code in MSDN (Article ID Q172592 'HOWTO: Open a Visual FoxPro Table for Read/Write') where was a source code about to open and work with a FoxPro database from Visual Basic using RDO object.

When I use VB6 I don't get any error message but Update after an Edit don't work (Update after an AddNew works well).

When I use VB5 I get an error message when Update after an Edit.

Run-time error '40002':
37000: [Microsoft][ODBC Visual FoxPro Driver]Syntax error.

(Update after an AddNew works well)

Code:

---

Option Explicit
Dim cn As New rdoConnection
Dim rs As rdoResultset
Dim SQL As String

Private Sub Command1_Click()
  rs.edit
End Sub

Private Sub Command2_Click()
  rs(1) = Text2.Text
  rs.Update
End Sub

Private Sub Command3_Click()
  rs.Close
  Set rs = Nothing
  cn.Close
  Set cn = Nothing
  Unload Me
End Sub

Private Sub Command4_Click()
  rs.MoveNext
  If Not (rs.EOF) Then
      Text1.Text = rs(0)
      Text2.Text = rs(1)
  Else
      rs.MoveLast
  End If
End Sub

Private Sub Command5_Click()
  rs.MovePrevious
  If Not (rs.BOF) Then
      Text1.Text = rs(0)
      Text2.Text = rs(1)
  Else
      rs.MoveFirst
  End If
End Sub

Private Sub Form_Load()
' Using a DSN-less connection to open a free table

cn.Connect = "SourceType=DBF;" _
        & "SourceDB=C:\Vfp\Samples\Data;" _
        & "Driver={Microsoft Visual FoxPro Driver}"

cn.CursorDriver = rdUseOdbc
cn.EstablishConnection "rdDriverNoPrompt"
SQL = "select * from customer" 
Set rs = cn.OpenResultset(SQL, rdOpenKeyset, rdConcurRowVer)
rs.MoveFirst
Text1.Text = rs(0)
Text2.Text = rs(1)
End Sub

---

Of course I select the RDO object from References option in Proyect menu. Boht VB5 and 6 are enterprise editions.

Can someone helps me? Any idea will be deeply appreciated.

Thaks!

Ulises