Public db_ole_prg As New OleDbConnection
    Public myOleDbDataAdapter As New OleDb.OleDbDataAdapter
    Public myOleDbSelectCommand As New OleDb.OleDbCommand
    Public myOleDbUpdateCommand As New OleDb.OleDbCommand
    Public myOleDbDeleteCommand As New OleDb.OleDbCommand
    Public myDataSet As New DataSet

 
   db_ole_prg.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
     "Source=k:\Daten\Test.mdb;User Id=admin;Password=;"
            db_ole_prg.Open()

 
       myDataSet.Clear()
 
        myOleDbSelectCommand.Connection = db_ole_prg
        myOleDbSelectCommand.CommandText = "SELECT" & _
          "AbfragenSpeichernFelder.[lfd-Nr],[Sort-Nr],[K1],[Feldname],[Feldtex" & _
          "],[K2],[operator] from AbfragenSpeichernFelder where [Lfd-Nr]=" & _
          actDatensatz & " Order By [Sort-Nr]"
        myOleDbUpdateCommand.CommandText = "Update * from" & _
        "AbfragenSpeichernFelder where [Lfd-Nr]=" & actDatensatz
 
        ' DataAdapter mit dem SelectCommand verbinden
 
        myOleDbDataAdapter.SelectCommand = myOleDbSelectCommand
        myOleDbDataAdapter.UpdateCommand = myOleDbUpdateCommand
 
 
        ' und mit dem DataAdapter das DataSet füllen
 
        myOleDbDataAdapter.Fill(myDataSet, "AbfragenSpeichernFelder")
 
        '' Daten an das DataGridView binden
        Unterformular_Abfragen.DataSource = myDataSet
        Unterformular_Abfragen.DataMember = "AbfragenSpeichernFelder"

 
 myOleDbDataAdapter.Update(myDataSet, "AbfragenSpeichernFelder")
            myDataSet.AcceptChanges()