I have problems to update recordset extracted from a Visual FoxPro involving a 'join' condition.

Every thing works well in a recordset from a simple single table.

I'm using ADO in VB5.

Code:
Option Explicit

Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public SQL As String

Private Sub Form_Load()
   Set cn = New Connection
   Set rs = New ADODB.Recordset
   cn.ConnectionString = "DSN=Prueba;UID=;PWD=;OLE DB Services=-1;"
   cn.Open
   cn.CursorLocation = adUseClient
   SQL = "SELECT t1.* FROM t1,t2 WHERE t1.ncontra = t2.ncontra AND t2.usuario = 'JMESCO'"
   rs.Open SQL, cn, dOpenKeyset, dLockOptimistic, -1
   rs.MoveFirst
   Text1.Text = rs!ncontra
   Text2.Text = rs!Desc
   Text3.Text = rs!Number
End Sub

Private Sub Command1_Click()
   rs!ncontra = Text1.Text
   rs!Desc = Text2.Text
   rs!Number = Val(Text3.Text)
   rs.Update
End Sub
Thanks!

If you want to reproduce the problem, I can send you the database (is very short).

[This message has been edited by Tonatiuh (edited 09-23-1999).]