Imports System.Data.OleDb
 
Public Class Form1
    Private conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
      "Source=Nordwind.mdb;")
    Private da As OleDbDataAdapter = Nothing
    Private ds As DataSet = Nothing
    Private bm As BindingManagerBase
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim bs As New BindingSource
 
        DataGridView1.DataSource = Nothing
        ds = getArtikel()
 
        'BindingManger
        bs.DataSource = ds
        bs.DataMember = "Artikel"
 
        ' Synchronisation aller Steuerelemente des Formulars mit der DataSet:
        bm = Me.BindingContext(ds, "Artikel")
 
 
 
        ' DataGridView mit DataSet verbinden
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "Artikel"
        formatDataGridView(DataGridView1)
 
 
        ' Datenbindung Textboxen
        TextBox1.DataBindings.Clear()
        TextBox1.DataBindings.Add("Text", bs, "ArtikelNr")
        TextBox2.DataBindings.Clear()
        TextBox2.DataBindings.Add("Text", bs, "ArtikelName")
        TextBox3.DataBindings.Clear()
        TextBox3.DataBindings.Add("Text", bs, "Einzelpreis")
        TextBox4.DataBindings.Clear()
        TextBox4.DataBindings.Add("Text", bs, "Mindestbestand")
 
 
 
 
 
 
 
    End Sub
 
 
 
 
 
    Private Sub btnMoveNext_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnMoveNext.Click
        bm.Position += 1
    End Sub
 
    Private Sub btnMovePrev_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnMovePrev.Click
        bm.Position -= 1
    End Sub
 
    Private Sub btnMoveFirst_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnMoveFirst.Click
        bm.Position = 0
    End Sub
 
    Private Sub btnMoveLast_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnMoveLast.Click
        bm.Position = bm.Count - 1
    End Sub
End Class

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET