tjek brugernavn og password i access db

Jeg er ved at lave et program med login, loginbrugernavn og password findes i min access database, men får fejl når jeg henter data fra databasen, er helt ny til .net og med hensyn til access db så alt kritik af min kode er velkommen :)
Ville gerne lave en Access DB kommunikations klasse men droppede tanken igen da jeg ikke er så god til .net endnu ...



Imports System.Data.OleDb
Imports System

    Public DbCon As OleDbConnection
    Public Brugernavn As String
    Public Godkendt As Integer


    Public Sub Db_AAbn()
        Dim DbPath = System.IO.Directory.GetCurrentDirectory & "\DB.mdb"
        Try
            DbCon = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & DbPath & "';jet oledb:database Password=password")
            DbCon.Open()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "")
            End
        End Try
    End Sub


    Private Sub CmdLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLogin.Click
        Db_AAbn()
        Dim DbQuery As OleDbCommand
        Dim DbReader As OleDbDataReader
        DbQuery = New OleDbCommand("SELECT * FROM User where" & TxtName.Text, DbCon)
        DbReader = DbQuery.ExecuteReader()
        While DbReader.Read
            Dim Id As Integer = CType(DbReader(0), Integer)
            Dim Navn As String = CType(DbReader(1), String)
            Dim Pass As String = CType(DbReader(2), String)
            Dim Godkend As Integer = CType(DbReader(3), Integer)
            If Navn = TxtName.Text And Pass = TxtPassword.Text Then
                Brugernavn = Navn
                Godkendt = Godkend
            End If
        End While
        DbCon.Close()
        If Brugernavn = vbNull Then
            MsgBox("forkert brugernavn eller password", MsgBoxStyle.Critical)
        End If
    End Sub