Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click

        Dim vYN As Integer
        vYN = MsgBox("Confirm Delete?", vbYesNo) ' Return value 6 = Yes 7 = No


        If vYN = 6 Then
            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 If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
	'Search

        Dim rs As SqlDataReader
        Dim db As New DB
        Dim vSQL As String

        Label5.Text = ""

        vSQL = "Select * From usermaster where userid='" + txtuserid.Text + "' "

        rs = db.doRetrieve(vSQL)

        If rs.HasRows Then

            While rs.Read()
                txtusername.Text = rs.Item("username").ToString()
                txtpassword.Text = rs.Item("pass").ToString()
                ddUserlevel.Text = rs.Item("userlevel").ToString()
            End While
        Else
            Label5.Text = "No Record Found!"
        End If
    End Sub