كود التحقق من الباسورد في التابول الأكسس

السلام عليكم

لدي برنامج صممة بعد عناء طويل رغم بساطة البرنامج يسأل عن الباسورد قبل الدخول إلى داخل البرنامج للإستفادة من خدماته ولكن المشكلة ماهو الكود المطلوب في شفرة الزر أو البوتن الذي إسمه bAccept لكي يقارن بين كلمة السر الذي يدخله العميل وكلمة السر المخزنة في قاعدة البيانات الآكسس وكود تغير الباسورد وتخزينه في شفرة الزر الذي إسمه pchangepassword عند ما يريد العميل تغير الباسور حسب إرادته كما أني أتممت الربط بين البرنامج وقاعدة البيانات بنجاح بالآتي:-

OdbcConnection1

OdbcDataAdapter1

DataSet1

علما بأن حاولت مرارا وتكرارا بمحولات فاشلة من كتابة أكواد ليس بها نفع فأرجو ا الإفادة

ولكم هذه شفرة البرنامج للإفادة :-

Public Class Form1
    Inherits System.Windows.Forms.Form

    Dim form1 As Form1
    Dim a As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub bAccept_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bAccept.Click

        Dim ds As New DataSet1.passwordDataTable
        Me.OdbcConnection1.Open()
        
        If TextBox1.Text = ds.TableName Then
            Label1.Visible = False
            Label2.Visible = False
            TextBox1.Visible = False
            bAccept.Visible = False
            bChangePassword.Visible = False
            Button1.Visible = False
            TextBox3.Visible = True
            bSave.Visible = True
            Label3.Visible = True
            Button2.Visible = True
        Else
            Me.TextBox1.Text = ("")
            MsgBox("Try Again")
            a = a + 1
            If a = 3 Then
                Me.Close()
            End If
        End If
    End Sub

    Private Sub bChangePassword_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bChangePassword.Click

        Label1.Visible = False
        Label2.Visible = False
        TextBox1.Visible = False
        bAccept.Visible = False
        bChangePassword.Visible = False
        Button1.Visible = False
        TextBox3.Visible = False
        bSave.Visible = False
        Label3.Visible = False
        Button2.Visible = False
        oldpassword.Visible = True
        newpassword.Visible = True
        rnewpassword.Visible = True
        TextBox4.Visible = True
        TextBox5.Visible = True
        TextBox6.Visible = True
        Back2.Visible = True
        pchangepassword.Visible = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Close()

    End Sub

    Private Sub Back2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Back2.Click

        Label1.Visible = True
        Label2.Visible = True
        TextBox1.Visible = True
        bAccept.Visible = True
        bChangePassword.Visible = True
        Button1.Visible = True
        TextBox3.Visible = False
        bSave.Visible = False
        Label3.Visible = False
        Button2.Visible = False
        oldpassword.Visible = False
        newpassword.Visible = False
        rnewpassword.Visible = False
        TextBox4.Visible = False
        TextBox5.Visible = False
        TextBox6.Visible = False
        Back2.Visible = False
        pchangepassword.Visible = False

    End Sub

    Private Sub pchangepassword_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pchangepassword.Click

        Dim ds As New DataSet1.passwordDataTable
        Me.OdbcConnection1.Open()
        Try
            Me.OdbcDataAdapter1.Fill(ds)
        Catch ex As Exception

        End Try
        If TextBox4.Text = ds.TableName Then
            If TextBox5.Text = TextBox6.Text Then


                MsgBox("The password is Changed Successfuly")
                Label1.Visible = True
                Label2.Visible = True
                TextBox1.Visible = True
                bAccept.Visible = True
                bChangePassword.Visible = True
                Button1.Visible = True
                TextBox3.Visible = False
                bSave.Visible = False
                Label3.Visible = False
                Button2.Visible = False
                oldpassword.Visible = False
                newpassword.Visible = False
                rnewpassword.Visible = False
                TextBox4.Visible = False
                TextBox5.Visible = False
                TextBox6.Visible = False
                Back2.Visible = False
                pchangepassword.Visible = False
            End If
        Else
            Me.TextBox4.Text = ("")
            MsgBox("The original Password is Mistake")
            Me.TextBox4.Text = ("")
            Me.TextBox5.Text = ("")
            Me.TextBox6.Text = ("")
        End If

    End Sub
  
End Class