Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim comstr As String
comstr = "update " & 表名 & " set "要更改的字段" = '" & "值" & "' where 条件='" & "条件值" & "'"
Dim sqlcom As New SqlCommand(comstr, SqlConnection1)
SqlConnection1.Open()
sqlcom.ExecuteNonQuery()
SqlConnection1.Close()
MsgBox("修改成功!")
End Sub