VB数据库更新语句求助

Option Explicit
Dim conn As New ADODB.Connection  '声明一个connection
Dim rs As ADODB.Recordset
Dim sql As String
Private Sub Form_Load()
  '获取form2窗体所要更新的，也就是鼠标所选择的内容
  Label2.Caption = Form2.MSHFlexGrid1.TextMatrix(Form2.MSHFlexGrid1.Row, 0) '给唯一编码赋值为form2窗体内的行号,0列
  Text1.Text = Form2.MSHFlexGrid1.TextMatrix(Form2.MSHFlexGrid1.Row, 1) 'text1的账号赋值为form2窗体的第一列
  Text2.Text = Form2.MSHFlexGrid1.TextMatrix(Form2.MSHFlexGrid1.Row, 2) 'text2的账号赋值为form2窗体的第二列
End Sub

Private Sub Command1_Click()
'更新最重要的不只是改变屏幕显示，还要更新数据库，所以第一步是连接数据库
If conn.State = 0 Then '先判断数据库是否打开，=0就是没打开，没打开则用下列语句连接数据库
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database3.mdb;Persist Security Info=False"
    conn.Open '打开数据库连接
End If
'更新数据库
'设置连接数据库的记录
  
  Set rs = New ADODB.Recordset
  sql = "updata [users] set [username]='" & Text1.Text & "',[password]='" & Text2.Text & "' where [id] =" & Label2.Caption '更新users这张表下的usersname项连接 text1.text和password项连接text2.text,根据ID，ID跟label2链接
  rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic
'更新mshflexgrid1
'方法1 调用form2窗口的查询按钮
'Call Form2.Commandselect_Click '将form2的这个过程变成全局过程public即可调用--出错？？
Form2.MSHFlexGrid1.TextMatrix(Form1.MSHFlexGrid1.Row, 1) = Text1.Text
Form2.MSHFlexGrid1.TextMatrix(Form1.MSHFlexGrid1.Row, 2) = Text2.Text
Unload Form3
End Sub
以上代码哪里有问题呀，求助，很急