VB.netでのログイン画面実装

ログイン画面を実装しております。名前、パスワードが保存されているテーブル(情報テーブル)はすでに用意されています。

コンボボックスから選択した名前でその名前と同行のパスワードを入力してもMsgBox記載の通り、(名前またはパスワードが間違っています。再入力してください。)と表示されます。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles kakuninn.Click

    If txtPassword.Text = "" Then
        MsgBox("パスワードを入力してください。")
        Return
    End If

    If ComboBox1.Text = "" Then
        MsgBox("名前を入力してください。")
        Return
    End If

    Dim con As New OleDbConnection()
    Dim cmd As New OleDbCommand()
    Dim da As New OleDbDataAdapter()
    Dim ds As New DataSet()
    Dim table As New DataTable

    Dim f As New Form0100()
    Try
        ' DB接続文字列の設定
        con.ConnectionString = My.Settings.PassCon
        ' コネクションの設定
        cmd.Connection = con

        ' DB接続を開く
        con.Open()

        ' SQL文の設定
        cmd.CommandText = "SELECT 名前,パスワード"
        cmd.CommandText &= " FROM 情報テーブル"
        cmd.CommandText &= "WHERE 名前 = '" & ComboBox1.Text & "' AND パスワード = '" & txtPassword.Text & "'"

        ' データを取得する
        
        da.SelectCommand = cmd
        da.Fill(ds, "情報テーブル")


    Catch ex As Exception

        'MsgBox("名前またはパスワードが間違っています。" & Environment.NewLine & "再入力してください。")

    Finally
        If table.Rows.Count.ToString > 0 Then
            f.Show()
        Else
            MsgBox("名前またはパスワードが間違っています。" & Environment.NewLine & "再入力してください。")
        End If
        ' DB接続を閉じる
        If Not con Is Nothing Then
            con.Close()


        End If



    End Try

End sub

gentaro

2021/01/29 08:59

質問文に「質問したい内容」すら書かれておらず、あなたがどこまで何を調査してどこに疑問を持っているのかも書かれていないため、質問として論外な状態です。ここはデバッグをタダで外注するための場所じゃないことを弁え、ガイドライン読んで質問文を編集してください。 https://teratail.com/help/question-tips https://teratail.com/help/avoid-asking