ERROR "91"

[Almarante]

Oi pessoal, Bom Dia

aqui estou eu novamente precisando de ajuda.

tenho um formulario onde eu lanço os itens de uma nota fiscal "Produtos" esses Produtos são compostos por sub produtos "ItensdoProduto"

eu quero que a cada lançamento seja baixado do estoque a quantidade de cada item do produto referente ao Produto lançado.

No codigo abaixo estou primeiro tentando salvar o resultado na Tabela ItensDeSaida, para depois subtrair o resultado de cada item da Tabela Estque.

Mas me deparei com o seguinte erro.

"Variavel do Objeto ou Variavel do Bloco WITH não foi definida"

Private Sub BaixaEstoque1()
  Dim QTD_SAIDA As Single
  Dim QTD_ITEMPRODUTO As Single
  Dim QTD_NOTA As Single
  
  
frmCadNotas.AdoItensdoProduto.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD
frmCadNotas.AdoItensdoProduto.RecordSource = "SELECT * FROM ItensdoProduto CodigodoProduto LIKE'" + frmCadNotas.txtCodProd.text + "'"
frmCadNotas.AdoItensdoProduto.Refresh

frmCadNotas.AdoItensdoProduto.Recordset.MoveFirst
Do While Not frmCadNotas.AdoItensdoProduto.Recordset.EOF


QTD_ITEMPRODUTO = frmCadNotas.AdoItensdoProduto.Recordset("Quantidade")
QTD_NOTA = frmCadNotas.txtQuantidade.text

 QTD_SAIDA = QTD_ITEMPRODUTO * QTD_NOTA

 frmCadNotas.AdoItens_Saida.Recordset.AddNew
 frmCadNotas.AdoItens_Saida.Recordset("Data") = frmCadNotas.txtdataemissao.text
 frmCadNotas.AdoItens_Saida.Recordset("Numero_Da_Nota") = frmCadNotas.txtnumeronota.text
 frmCadNotas.AdoItens_Saida.Recordset("Item") = frmCadNotas.txtItem.text
 frmCadNotas.AdoItens_Saida.Recordset("Codigo_Do_Item") = frmCadNotas.AdoItensdoProduto.Recordset("CodigodoItem")
 frmCadNotas.AdoItens_Saida.Recordset("Descricao") = frmCadNotas.AdoItensdoProduto.Recordset("DescricaodoItem")
 frmCadNotas.AdoItens_Saida.Recordset("Quantidade") = QTD_SAIDA

 frmCadNotas.AdoItens_Saida.Recordset.Update
 frmCadNotas.AdoItens_Saida.Recordset.MoveNext
 frmCadNotas.AdoItens_Saida.Recordset.MovePrevious
   
   frmCadNotas.AdoItensdoProduto.Recordset.MoveNext

Loop
End Sub

Depois Tentei o seguinte,

Private Sub BaixaEstoque1()
  Dim QTD_SAIDA As Single
  Dim QTD_ITEMPRODUTO As Single
  Dim QTD_NOTA As Single
  Dim ADO As ADODB.Recordset
  
frmCadNotas.AdoItensdoProduto.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD
frmCadNotas.AdoItensdoProduto.RecordSource = "SELECT * FROM ItensdoProduto CodigodoProduto LIKE'" + frmCadNotas.txtCodProd.text + "'"
frmCadNotas.AdoItensdoProduto.Refresh

ADO = frmCadNotas.AdoItensdoProduto.Recordset

ADO.MoveFirst
Do While Not ADO.EOF


QTD_ITEMPRODUTO = frmCadNotas.AdoItensdoProduto.Recordset("Quantidade")
QTD_NOTA = frmCadNotas.txtQuantidade.text

 QTD_SAIDA = QTD_ITEMPRODUTO * QTD_NOTA

 frmCadNotas.AdoItens_Saida.Recordset.AddNew
 frmCadNotas.AdoItens_Saida.Recordset("Data") = frmCadNotas.txtDataEmissao.text
 frmCadNotas.AdoItens_Saida.Recordset("Numero_Da_Nota") = frmCadNotas.txtnumeronota.text
 frmCadNotas.AdoItens_Saida.Recordset("Item") = frmCadNotas.txtItem.text
 frmCadNotas.AdoItens_Saida.Recordset("Codigo_Do_Item") = frmCadNotas.AdoItensdoProduto.Recordset("CodigodoItem")
 frmCadNotas.AdoItens_Saida.Recordset("Descricao") = frmCadNotas.AdoItensdoProduto.Recordset("DescricaodoItem")
 frmCadNotas.AdoItens_Saida.Recordset("Quantidade") = QTD_SAIDA

 frmCadNotas.AdoItens_Saida.Recordset.Update
 frmCadNotas.AdoItens_Saida.Recordset.MoveNext
 frmCadNotas.AdoItens_Saida.Recordset.MovePrevious
   
   frmCadNotas.AdoItensdoProduto.Recordset.MoveNext

Loop
End Sub

Deu "Uso Invalido da Propriedade"

[kuroi]

em q linha exatamente aparece "Variavel do Objeto ou Variavel do Bloco WITH não foi definida"??

[Almarante]

Kuroi, Na linha

"frmCadNotas.AdoItensdoProduto.Recordset.MoveFirst"

e tambem está dando ERRO DE SINTAXE NA CLÁUSULA FROM, na linha abaxo.

"frmCadNotas.AdoItensdoProduto.Refresh"