Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
        Me.OleDbDataAdapter1.Fill(Me.DataSet11)   '<---------- diese Zeile ist 
        ' komplett grün markiert
 
Call Pos()
 
    End Sub