Dim command As OleDbCommand = New OleDbCommand()
sqlDataAdapter = New OleDbDataAdapter()
command.Connection = conn
command.CommandText = sqlRequestCommand
 
dataAdapter.SelectCommand = command
dataAdapter.Fill(ds)

Dim cmb As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder( _
  sqlDataadapter)
Debug.Print(cmb.GetUpdateCommand.CommandText)