Imports System.Data.OleDb
Imports System.Object
 
 
 
   Dim cn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data" & _
     "source="    & Application.StartupPath & "\Telefon.mdb")
    Dim cm1 As New OleDbCommand("Select * from Tel", cn)
 
    Public da1 As New OleDbDataAdapter(cm1)
    Public ds1 As New DataSet
    Public DV1 As New DataView
 
 
 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
 
        cn.Open()
        da1.Fill(ds1, "Tel")
        DV1.Table = ds1.Tables("Tel")
 
        TextBox1.DataBindings.Add("Text", Class1.DV1, "Vorname")
        TextBox2.DataBindings.Add("Text", Class1.DV1, "Name")
        TextBox3.DataBindings.Add("Text", Class1.DV1, "Ort")
        TextBox4.DataBindings.Add("Text", Class1.DV1, "Nummer")
 
 
    End Sub

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