vb更新dbf表的问题

运行没有问题，但就是数据修改不了，Aae111的值不变
Private Sub zshp_Click()                 
       Dim conn    As New ADODB.Connection
       Dim rs1    As New ADODB.Recordset                     
      'vb连接dbf文件
       cnstr = "Driver={Microsoft Visual FoxPro Driver};" & _
           "SourceType=DBF;" & _
           "SourceDB=" & App.Path & "\data;" & _
           "Exclusive=No"
       conn.Open cnstr
       rs1.CursorLocation = adUseClient        
       rs1.Open "update cl1 set Aae111='11111' ", conn, adOpenKeyset, adLockBatchOptimistic 'cl1为表名   
       conn.Close
End Sub