Binaryworld - CreateDataAdapter_OleDb - Create an initialized OLEDB Data Adapter ... [ VB.net -> ADO.net ]

' create and return a DataAdapter over an open OleDbConnection
' and initialize its delete, insert, and update commands
'
' CN is the OleDbConnection object
' SQL is the SQL Select statement to be executed
'
' any exception is thrown to the caller

Function CreateDataAdapter_OleDb(ByVal cn As System.Data.OleDb.OleDbConnection, _
  ByVal sql As String) As System.Data.OleDb.OleDbDataAdapter
  ' Create the DataAdapter
  Dim da As New System.Data.OleDb.OleDbDataAdapter(sql, cn)
  ' create a CommandBuilder
  Dim cb As New System.Data.OleDb.OleDbCommandBuilder(da)
  ' derive the delete/insert/update commands
  da.DeleteCommand = cb.GetDeleteCommand()
  da.InsertCommand = cb.GetInsertCommand()
  da.UpdateCommand = cb.GetUpdateCommand()
  ' dispose the CommandBuilder and return the result
  cb.Dispose()
  Return da
End Function