"update name set password='" & Trim(Text3.Text) & "'" & " where name='" &Trim(Form1.Text1.Text) & "'"不要用From
