Access DB in Textbox

[kassor]

Halli Hallo liebe leute,

ich brauche dringend Hilfe. Bin sowas von verzweifelt weil ich eig. eine einfache Sache nicht hinbekomme und zwar habe ich eine Access DB angelegt und manuell per Hand gefüllt. Jetzt möchte ich einfach per Code meine erstellte Textbox mit dem Inhalt füllen. Ich habe mir auch einige Tutorials angeguckt etc. aber ich checks einfach nicht.

Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=pocketDB.mdb")
Dim cmd As New OleDb.OleDbCommand
Dim reader As OleDb.OleDbDataReader


cmd.Connection = con
        cmd.CommandText = "SELECT name,zeit FROM kategorie"
        reader = cmd.ExecuteReader

        Try
            con.Open()
            reader = cmd.ExecuteReader()
            Do While reader.Read()
                txtAnzeige.Text &= reader("name") & vbCrLf
            Loop
            reader.Close()
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Was mache ich falsch?
Bitte um Hilfe,danke