Public Class User
    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click

        Dim db As New DB

        Dim vSQL As String

        vSQL = "Insert into usermaster (userid, username, pass, userlevel) " &
                " values('" + txtuserid.Text + "', '" + txtusername.Text + "', '" + txtpassword.Text + "', '" + ddUserlevel.Text + "')"

        db.doInsert(vSQL)

        Label5.Text = "Record Successfully Add"

    End Sub

    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
        Dim db As New DB

        Dim vSQL As String

        vSQL = "Update usermaster set username= '" + txtusername.Text + "', pass='" + txtpassword.Text + "', userlevel='" + ddUserlevel.Text + "' " &
            " where userid='" + txtuserid.Text + "' "

        db.doUpdate(vSQL)

        Label5.Text = "Record Updated "
    End Sub

    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
        Dim db As New DB

        Dim vSQL As String

        vSQL = "Delete From usermaster  " &
            " where userid='" + txtuserid.Text + "' "

        db.doDelete(vSQL)

        Label5.Text = "Record Deleted! "
    End Sub

End Class