1           Dim sSql As String = "select * from tblMaschinenKomb where" & _
  "mkIsVorschlag = True"
2            'Dim daKomb As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter( 
' sSql, App.DataManager.dbConAgrar)
3            'daKomb.Fill(Me.DsMaschinenKombo)
 
4            Dim selCmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(sSql, _
  App.DataManager.dbConAgrar)
5            Dim selCmdSave As OleDb.OleDbCommand = _
App.DataManager.daMaschinenKombo.SelectCommand
6            App.DataManager.daMaschinenKombo.SelectCommand = selCmd
7            App.DataManager.daMaschinenKombo.Fill(Me.DsMaschinenKombo)
8            App.DataManager.daMaschinenKombo.SelectCommand = selCmdSave