VB中数据库时Access,修改命令有错误，请大师指教。

----------------

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\信息表.mdb;Persist Security Info=False"
            con.Open
            Set rs = con.Execute("select * from 数据表 where 联系电话= '" & Text3.Text & "' ")
            sql = "update into [数据表]([单位],[家长姓名],[联系电话],[姓名],[性别],[出生年月],[年龄],[过敏史],[皮肤],[头颅],[咽部],[胸廓],[心肺],[肝脾],[身高],[身高评价],[体重],[体重评价],[左眼],[左视力],[右眼],[右视力],[左耳],[右耳],[牙齿数],[龋齿数],[脊柱四肢],[血红蛋白],[乙肝表面抗原],[体检日期]) values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "','" & Text10.Text & "','" & Text11.Text & "','" & Text12.Text & "','" & Text13.Text & "','" & Text14.Text & "','" & Text15.Text & "','" & Text16.Text & "','" & Text17.Text & "','" & Text18.Text & "','" & Text19.Text & "','" & Text20.Text & "','" & Text21.Text & "','" & Text22.Text & "','" & Text23.Text & "','" & Text24.Text & "','" & Text25.Text & "','" & Text26.Text & "','" & Text27.Text & "','" & Text28.Text & "','" & Text29.Text & "','" & Text30.Text & "')"
            rs.Update
            con.Close
            Adodc1.RecordSource = "select * from 数据表"
            Adodc1.Refresh
            Set MSHFlexGrid1.DataSource = Adodc1