Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        objDataSet = New DataSet("DataSet")
        objConn = New OleDb.OleDbConnection(sCon)
        objDataAdapter = New OleDb.OleDbDataAdapter(New OleDb.OleDbCommand( _
          "SELECT * FROM Mitarbeiter", objConn))
        objDataTable = New DataTable("DataTable")
        objDataAdapter.Fill(objDataTable)
        Me.objDataSet = New DataSet
        Me.objDataSet.Tables.Add(Me.objDataTable)
        objDataView = New DataView(objDataTable)
        Me.DataBindings.Add("Text", objDataView, "Nummer")
        Me.txtVorname.DataBindings.Add("Text", objDataView, "Vorname")
        Me.txtZuname.DataBindings.Add("Text", objDataView, "Nachname")
        Me.BindingContext(objDataView).Position = 0
        Me.DataGrid1.DataSource = Me.objDataView
    End Sub