Private Sub frm_turnier_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        cSQL = "select * from tbl_veranstaltung"
        'Dim conn As New OleDb.OleDbConnection( 
        ' "Provider=Microsoft.JET.OLEDB.12.0;" & "Data Source=" & cDBPath)
        Dim conn As New OleDb.OleDbConnection( _
          "Provider=Microsoft.JET.OLEDB.4.0;" & "Data Source=" & cDBPath)
        Dim da As New OleDb.OleDbDataAdapter(cSQL, con)
        Dim ds As New DataSet
        Try
            conn.Open()
            da.Fill(ds, "tbl_veranstaltung")
            txt_veranstalter.Text = "Meine Tabelle; Feld ver_name"
            txt_veranstaltung.Text = "Meine Tabelle; Feld ver_bezeichnung"
            txt_datum.Text = "Meine Tabelle; Feld ver_datum"
            conn.Close()
        Catch
            MsgBox("Probleme bei der Verbindung", MsgBoxStyle.Critical)
        End Try
    End Sub

conn.Open()

da.Fill(ds, "tbl_veranstaltung")