CreateDataAdapter_Sql - Create an initialized SQL DataAdapter

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

Function CreateDataAdapter_Sql(ByVal cn As System.Data.SqlClient.SqlConnection, _
    ByVal sql As String) As System.Data.SqlClient.SqlDataAdapter
    ' Create the DataAdapter
    Dim da As New System.Data.SqlClient.SqlDataAdapter(sql, cn)
    ' create a CommandBuilder
    Dim cb As New System.Data.SqlClient.SqlCommandBuilder(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