Imports System.Data.OleDb
Imports System.IO
 
 
Public Class frmEingabeF
 
    Private da As OleDbDataAdapter = Nothing         
    Private dt As DataTable = Nothing
    Private bs As New BindingSource()
 
 
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        Dim connStr As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data" & _
          "Source=                ArchivFilm.accdb;"         
 
 Dim conn As New OleDbConnection(connStr)
        Dim selStr As String = " SELECT * From Film"
        da = New OleDbDataAdapter(selStr, conn)
 
        conn = New OleDbConnection(connStr)
 
 
        Dim cb As New OleDbCommandBuilder(da)
 
 
        dt = New DataTable("Film")
        conn.Open()
        da.Fill(dt)
        conn.Close()
        bs.DataSource = dt
        txtIDF.DataBindings.Add("Text", bs, "IDF")
        txtTitel.DataBindings.Add("Text", bs, "Titel")
        txtDatum.DataBindings.Add("Text", bs, "Datum")
        rtfInfo.DataBindings.Add("Text", bs, "Bemerkungen")
 
        Dim b1 As New Binding("Text", bs, "Datum")
        AddHandler b1.Format, New ConvertEventHandler(AddressOf _
          Me.DateToDateString)
        AddHandler b1.Parse, New ConvertEventHandler(AddressOf _
        Me.DateToDateString)
        txtDatum.DataBindings.Add(b1)
 
 
 
        MyBase.OnLoad(e)
    End Sub
 
 
    Private Sub cmdWeiter_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdWeiter.Click
        bs.MoveNext()
    End Sub
  (usw)
End Class