Dim oMyCon As New OleDbConnection   'Objekt für die Connection
    Dim oMyCom As New OleDbCommand      'Command Objekt
    Dim oMyAdap As New OleDbDataAdapter 'Daten Adapter Festlegen
    Dim oMyDS As New DataSet            'Datenzwischenspeicher
    Dim oMyBing As New BindingSource
 
    Private Sub FrmHaupt_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim sSQL As String = "SELECT * FROM Job_" & Glob_Profiel & ";"
 
        AddHandler oMyBing.PositionChanged, AddressOf oMyBing_PositionChanged
 
        oMyCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=" & Glob_DB_Pfad & "\Downloader.mdb"
 
        oMyCom.Connection = oMyCon
        oMyCom.CommandText = sSQL
 
        oMyAdap.SelectCommand = oMyCom
 
        Try
            oMyCon.Open()
            oMyAdap.Fill(oMyDS, Glob_Profiel)  'Daten Abrufen 
            oMyAdap.FillSchema(oMyDS, SchemaType.Source, Glob_Profiel) _
              'Schemainformationen Abrufen
            oMyCon.Close()
        Catch ex As Exception
            MsgBox("Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, _
              "Fehler")
        End Try
 
        oMyBing.DataSource = oMyDS.Tables(Glob_Profiel)
 
        Me.txtID.DataBindings.Add("Text", oMyBing, "ID", False, _
          DataSourceUpdateMode.OnValidation)
        ......