Dim adapter As SqlDataAdapter 
Dim mRS As DataTable 

Open:

                Using cmd As SqlCommand = CreateCommand(pvsSQLString, False)
                    cmd.CommandType = CommandType.Text

                    mRS = New DataTable
                    adapter = New SqlDataAdapter(cmd)
                    adapter.Fill(mRS)

                    Dim builder As New SqlCommandBuilder(adapter)
                    adapter.DeleteCommand = builder.GetDeleteCommand
                    adapter.UpdateCommand = builder.GetUpdateCommand
                    adapter.InsertCommand = builder.GetInsertCommand

                    If Not mObject Is Nothing Then
                        adapter.InsertCommand.CommandText = adapter.InsertCommand.CommandText & ";select " & GetFields(mObject) &  " from " & mObject.SourceTable & " WHERE " & mObject.PrimaryKey & "=SCOPE_IDENTITY();"
                        adapter.InsertCommand.UpdatedRowSource = UpdateRowSource.Both
                        adapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
                        AddHandler adapter.RowUpdated, New SqlRowUpdatedEventHandler(AddressOf OnRowUpdated)
                    End If
                End Using

Update:

            Dim dc As DataTable = mRS.GetChanges
            adapter.Update(dc)
            mRS.Merge(dc)
            mRS.AcceptChanges()

adapter.InsertCommand = New SqlCommand( _
            "INSERT INTO dbo.Shippers (CompanyName) " & _
            "VALUES (@CompanyName); " & _
            "SELECT ShipperID, CompanyName FROM dbo.Shippers " & _
            "WHERE ShipperID = SCOPE_IDENTITY();", _
            connection)

select * from tblState WHERE StateID=SCOPE_IDENTITY();