مشكلة الدخول للأعضاء في اللوحة

السلام عليكم

عندي مشكلة  في الدخول  اللوحة عندي عامة أي عضو يدخل يحصل نفس البيانات للأعضاء الأخرين   اريد كل عضو يكون له ريكورد خاص يضيف ويعدل   .؟

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click


        Dim sqlQRY As String = "SELECT * FROM Committee Where Username = '" & Me.UsernameTextBox.Text & "' AND Password = '" & Me.PasswordTextBox.Text & "'"
        Dim cmd As OleDbCommand = New OleDbCommand(sqlQRY, conn)
        Dim rdr As OleDbDataReader = cmd.ExecuteReader
        rdr.Read()
        If rdr.HasRows = True Then
            Dim Username As String = rdr("Username").ToString
            Dim Password As String = rdr("Password").ToString

            frmContinuing.ToolStripLabel5.Text = UsernameTextBox.Text
            frmOption.ToolStripLabel5.Text = UsernameTextBox.Text

            Dim conn As New System.Data.OleDb.OleDbConnection
            Dim strConnString As String

            strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db_es.mdb"
            conn.ConnectionString = strConnString
            conn.Open()

            Dim OleDBC As New OleDbCommand
            With OleDBC
                .Connection = conn
                .CommandText = "INSERT INTO `HistoryLog` (`Time`, `Actions`, `User`) VALUES ('" & ToolStripLabel3.Text & "', 'Login', '" & UsernameTextBox.Text & "')"
                .ExecuteNonQuery()
            End With

            UsernameTextBox.Text = ""
            PasswordTextBox.Clear()
            UsernameTextBox.Focus()
            frmOption.Show()
            Me.Hide()

        ElseIf UsernameTextBox.Text = "" Or PasswordTextBox.Text = "" Then
            MessageBox.Show("Please input a valid username or password!", "Login Error!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            UsernameTextBox.Text = ""
            PasswordTextBox.Clear()
            UsernameTextBox.Focus()
        Else
            MessageBox.Show("Username or password not found!", "Login Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
            UsernameTextBox.Text = ""
            PasswordTextBox.Clear()
            UsernameTextBox.Focus()
        End If

    End Sub