'die 2 objekte müssen als global deklariert werden damit sie in jeder funktion 
'oder subroutine bekannt sind
Dim da As SqlDataAdapter
Dim ds As DataSet
Private Sub kundenstamm_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        ReadData("Kunden")
        'Label27.Text = "1"
        globals.kdstmIsOpen = True
 
    End Sub
    Sub ReadData(ByVal Tabellenname As String)
        Dim sql_id = System.Configuration.ConfigurationSettings.AppSettings.Get( _
          "sql_id")
        Dim sql_data As String = _
        System.Configuration.ConfigurationSettings.AppSettings.Get("sql_data")
        Dim sql_catalog As String = _
        System.Configuration.ConfigurationSettings.AppSettings.Get( _
        "sql_catalog")
 
        Dim conn As New SqlConnection("packet size=4096;user id=" & sql_id & _
          ";integrated security=SSPI;data source=" & sql_data & ";persist" & _
          "security info=False;initial catalog=" & sql_catalog)
 
 
        Dim SQL As String = "SELECT * FROM " & Tabellenname
'hier hab ich was geändert 
' ***********************************************************
       da = New SqlDataAdapter(SQL, conn)
        ' Dim cmdB As New SqlCommandBuilder(da)
        ds = New DataSet
'******************************************************************************
' **********
        conn.Open()
        da.Fill(ds, Tabellenname)
        conn.Close()
                'Dim dt As DataTable = ds.Tables(Tabellenname)
        'Dim dr As DataRow
'hier hab ich was geändert 
' **********************************************************
        txtKdnr.DataBindings.Add("Text", ds.Tables(Tabellenname).DefaultView, _
          "KundenNr")
'die tabellen kannst du auch über den namen ansprechen
'******************************************************************************
' *********
        txtfirma.DataBindings.Add("Text", ds.Tables(0).DefaultView, "Firma1")
        comboanrede.DataBindings.Add("Text", ds.Tables(0).DefaultView, "Anrede")
        txtname.DataBindings.Add("Text", ds.Tables(0).DefaultView, "Name")
        txtvorname.DataBindings.Add("Text", ds.Tables(0).DefaultView, "Vorname")
        txtstrasse.DataBindings.Add("Text", ds.Tables(0).DefaultView, _
          "Bezeich1")
        txtpostfach.DataBindings.Add("Text", ds.Tables(0).DefaultView, _
        "Bezeich2")
        txtland.DataBindings.Add("Text", ds.Tables(0).DefaultView, "Land")
        txtplz.DataBindings.Add("Text", ds.Tables(0).DefaultView, "PLZ")
        txtort.DataBindings.Add("Text", ds.Tables(0).DefaultView, "Ort")
        txtkanton.DataBindings.Add("Text", ds.Tables(0).DefaultView, "Kt")
        txtmail.DataBindings.Add("Text", ds.Tables(0).DefaultView, "Merkmal")
        txttelp.DataBindings.Add("Text", ds.Tables(0).DefaultView, "TelPriv")
        txttelg.DataBindings.Add("Text", ds.Tables(0).DefaultView, "TelGes")
        txtfax.DataBindings.Add("Text", ds.Tables(0).DefaultView, "Fax")
        txttermin.DataBindings.Add("Text", ds.Tables(0).DefaultView, "Termin")
        txtumsatz.DataBindings.Add("Text", ds.Tables(0).DefaultView, "Umsatz")
        'txtfax.DataBindings.Add("Text", ds.Tables(0).DefaultView, "Fax")
        'txtfax.DataBindings.Add("Text", ds.Tables(0).DefaultView, "Fax")
        'txtfax.DataBindings.Add("Text", ds.Tables(0).DefaultView, "Fax")
        'txtfax.DataBindings.Add("Text", ds.Tables(0).DefaultView, "Fax")
        'txtfax.DataBindings.Add("Text", ds.Tables(0).DefaultView, "Fax")
 
 
    End Sub
 
 
    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.ToolBarButtonClickEventArgs) Handles _
      ToolBar1.ButtonClick
        Select Case ToolBar1.Buttons.IndexOf(e.Button)
            Case 0
                Me.BindingContext(ds.Tables("Kunden").DefaultView).Position = _
                  Me.BindingContext(ds.Tables( _
                  "Kunden").DefaultView).Position.MinValue
 
                'Label27.Text = Me.BindingContext(DataSet11, "Kunden").Position 
                ' + 1
            Case 1
                Me.BindingContext(ds.Tables("Kunden").DefaultView).Position -= 1
 
                'Label27.Text = Me.BindingContext(DataSet11, "Kunden").Position 
                ' + 1
            Case 2
                Me.BindingContext(ds.Tables("Kunden").DefaultView).Position += 1
 
                ' Label27.Text = Me.BindingContext(DataSet11, 
                ' "Kunden").Position + 1
            Case 3
                Me.BindingContext(ds.Tables("Kunden").DefaultView).Position = _
                  Me.BindingContext(ds.Tables( _
                  "Kunden").DefaultView).Position.MaxValue
                'Label27.Text = Me.BindingContext(DataSet11, "Kunden").Position 
                ' + 1
        End Select
    End Sub