麻烦那位高手帮我看下面的代码有什么问题。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim db As DataBase = New DataBase
        Try
            Dim dv As DataView = db.RunDelOrInsSQL("updata 用户清单 set 密码='" _
           & Me.TextBox3.Text.Trim & "'where id='" + UserId + "'")
            MsgBox("修改成功！")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub