Public Class Form1

    Dim maxrows As Integer
    Dim counter As Integer

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'the following procedures will run when the form is loaded

        ConnectToDatabase("SELECT * FROM tblUser", "tblUser")
        FillListBoxes("tblUser")


    End Sub

    Sub FillListBoxes(ByVal strTable As String)

        lbx_username.Items.Clear()
        lbx_password.Items.Clear()
        lbx_level.Items.Clear()

        maxrows = ds.Tables(strTable).Rows.Count

        For counter = 0 To (maxrows - 1)

            lbx_username.Items.Add(ds.Tables(strTable).Rows(counter).Item(1))
            lbx_password.Items.Add(ds.Tables(strTable).Rows(counter).Item(2))
            lbx_level.Items.Add(ds.Tables(strTable).Rows(counter).Item(3))

        Next

    End Sub


    Private Sub Btn_Save_Click(sender As Object, e As EventArgs) Handles btn_Save.Click

        Dim cb As New OleDb.OleDbCommandBuilder(da)
        Dim dsNewRow As DataRow

        dsNewRow = ds.Tables("tblUser").NewRow()

        dsNewRow.Item(1) = txt_NewUsername.Text
        dsNewRow.Item(2) = txtx_NewPassword.Text
        dsNewRow.Item(3) = txt_NewLevel.Text

        'new row is now added to the dataset table but it is NOT yet saved to the Actual Acceess Database
        ds.Tables("tblUser").Rows.Add(dsNewRow)

        'this line now saves the dataset to the actual Access database. The data adapter is updated

        'something wrong with this line... apparently!!
        da.Update(ds, "tblUser")

        FillListBoxes("tblUser")

        MsgBox("New User Information Has Been Saved")

    End Sub

    Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed

        con.Close()

    End Sub

    Private Sub Btn_Search_Click(sender As Object, e As EventArgs) Handles btn_Search.Click

        Dim required As Char
        Dim position As Integer
        Dim current As String
        Dim match As Boolean

        txt_ShowUsername.Clear()
        txt_ShowPassword.Clear()
        txt_ShowLevel.Clear()

        match = False
        maxrows = ds.Tables("tblUser").Rows.Count

        required = txt_RequiredLevel.Text

        For position = 0 To (maxrows - 1)
            current = ds.Tables("tblUser").Rows(position).Item(3)
            If current = required Then
                match = True
                txt_ShowUsername.Text = ds.Tables("tblUser").Rows(position).Item(1)
                txt_ShowPassword.Text = ds.Tables("tblUser").Rows(position).Item(2)
                txt_ShowLevel.Text = ds.Tables("tblUser").Rows(position).Item(3)
                MsgBox("Look For Another Match")
            End If
        Next

        If match = False Then
            MsgBox("Sorry, No Users Have That Level Of Access")
        Else
            MsgBox("No More Records")
        End If

        txt_RequiredLevel.Clear()

    End Sub
End Class