Public Cn As OleDbConnection
    Public Da As OleDbDataAdapter
    Public Ta As DataTable
    Public Cb As OleDbCommandBuilder
 
 
 
Dim stDBPfad As String = Application.StartupPath & "\Buchdatenbank4.mdb"
        Dim stCn As String = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & _
          stDBPfad
        Try
            Cn = New OleDbConnection(stCn)
 
            Cn.Open()
        Catch ex As OleDbException
            MsgBox("Fehler: " & ex.Message)
        End Try
        Try
 
            Da = New OleDbDataAdapter("SELECT * FROM Abfrage1", Cn)
            Ta = New DataTable("Abfrage1")
 
            Da.Fill(Ta)
 
            Grid2()
 
 
            Tv.Table = Ta
            Cb = New OleDbCommandBuilder(Da) ' DbCommandBuilder bauen 
        Catch Ex As OleDbException
            MsgBox("Fehler: " & Ex.Message)
        End Try
 
 
        TextBox1.DataBindings.Add("Text", Tv, "Titel")
        TextBox2.DataBindings.Add("Text", Tv, "Verlag")
        TextBox3.DataBindings.Add("Text", Tv, "Kategorie")
        TextBox4.DataBindings.Add("Text", Tv, "ISBN")
        TextBox5.DataBindings.Add("Text", Tv, "Seitenzahl")
        TextBox6.DataBindings.Add("Text", Tv, "Ort")
        RichTextBox1.DataBindings.Add("Text", Tv, "Notiz")
        TextBox7.DataBindings.Add("Text", Tv, "Autor")
        TextBox8.DataBindings.Add("Text", Tv, "Vorname")
        TextBox9.DataBindings.Add("Text", Tv, "Datum")
        TextBox10.DataBindings.Add("Text", Tv, "Bildpfad")
        RichTextBox2.DataBindings.Add("Text", Tv, "Biografie")

Schreibe von einem ab, dann ist das Plagiat - schreibe von zweien ab, dann ist das Forschung!