Public Class ShowAllUsers

    Dim intMaxRows As Integer
    Dim intCounter As Integer
    Sub AddRecordsToForm(ByVal strTable As String)

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

        'set up a loop to populate the list boxes with the fields of each record in the specified Access Database Table

        For intCounter = 0 To (intMaxRows - 1)

            lbx_users.Items.Add(ds.Tables(strTable).Rows(intCounter).Item(1))
            lbx_levels.Items.Add(ds.Tables(strTable).Rows(intCounter).Item(2))
            lbx_passwords.Items.Add(ds.Tables(strTable).Rows(intCounter).Item(3))

        Next

    End Sub

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

        ConnectToDatabase("SELECT * FROM tblUSER", "tblUSER")
        AddRecordsToForm("tblUSER")
        intCounter = 0

    End Sub

    Private Sub ShowAllUsers_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing

        DisconnectFromDatabase()

    End Sub

    Private Sub Btn_ReturnToMenu_Click(sender As Object, e As EventArgs) Handles btn_ReturnToMenu.Click

        MainMenu.Show()
        Me.Close()

    End Sub
End Class