Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim con As New OleDb.OleDbConnection
        Dim cmd As New OleDb.OleDbCommand
 
        Dim reader As OleDb.OleDbDataReader
 
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data" & _
          "Source=C:\WorkSpace\TestDB.mdb"
        cmd.Connection = con
        cmd.CommandText = "Select * from TabTestDB"
 
        Try
            con.Open()
            reader = cmd.ExecuteReader()
            txtTabRead.Clear()
            Do While reader.Read()
                txtTabRead.Text = reader("SpalteDaten")
            Loop
            reader.Close()
            con.Close()
        Catch ex As Exception
            MsgBox("Fehler")
        End Try
    End Sub
End Class