[Resolvido]Era esperado uma Matriz

Declarei uma variavel e depois fiz o seguinte
rstot = "Select Produto_QueTecnica From TblProdutos where Produto_Codigo= " & rsproduto & " "
Set rsQtec = CurrentDb.OpenRecordset(rstot("Produto_QueTecnica"))

qdo executo, na variavel rstot aparece um erro dizendo que era esperado uma Matriz

to meio perdido

se alguem puder me ajudar agradeço

Bom dia,
Indique como declarou a variável. Pode disponibilizar o caso concrecto par lhe tentarmos ajudar

Dim db As DAO.Database
Dim rsprod As DAO.Recordset 'Declaração de variáveis.
Dim rsrom As DAO.Recordset
Dim rsCliente As String
Dim rsproduto As String
Dim rstot As String
Dim rstotliq As String
Dim rsQtec As DAO.Recordset
Set db = CurrentDb()
Set rsprod = db.OpenRecordset("TblProdutos") 'Abertura de tabelas.
Set rsrom = db.OpenRecordset("TblRom")

rsrom.MoveFirst 'Posiciona o cursor no primeiro registro da tabela.

Do While Not rsprod.EOF
rsCliente = rsrom("ClienteRom") 'Captura dados do registro para utilização nas variaveis.
rsproduto = rsrom("ProdutoRom")
rstotliq = rsrom("TotLiquidoEntrada")
rstot = "Select Produto_QueTecnica From TblProdutos where Produto_Codigo= " & rsproduto & " " 'Captura o valor do desconto da quebra tecnica.
Set rsQtec = CurrentDb.OpenRecordset(rstot("Produto_QueTecnica"))
If rsrom("DataRotRom") > (rsrom("DataRotRom") + 15) Or rsrom("StatusRom") = Ds Then
rsrom.Edit 'Edita o campo dataRotRom
rsrom("DataRotRom") = Date
rsrom.AddNew 'Abre novo registro na tabela
rsrom("ClienteRom") = rsCliente
rsrom("ProdutoRom") = rsproduto
rsrom("DataRom") = Date
rsrom("DataRotRom") = Date
rsrom("StatusRom") = "DS"
'rsrom("TotLiquidoEntrada") = -(rstotliq * (rsQtec / 100))
rsrom.Update
End If
rsrom.MoveNext
Loop
rsrom.Close
rsprod.Close

End Sub

Captura os dados da tabela Tblrom que tem os dados da entrada do produto depois pega os dados da tabela TblProdutos que tem os dados para descontos de cada produto, como arroz, soja, milho etc...
depois edita o campo DataRotRom, este campo atualiza a dada para efetuar disparos para um novo calculo, no caso a cada 15 dias.
pois gera novo registro na tabela TblRom para inserir a quantidade descontada e o cliente, produto e as respectivas datas.
depois inseri um loop para refazer este procedimento mas no proximo registro da tabela com o rsrom.MoveNext

qualquer coisa estamos por ai

RESOLVIDO, DECLARAÇÃO ERRADA,


AO INVÉS DE
Set rsQtec = CurrentDb.OpenRecordset(rstot("Produto_QueTecnica"))
O CORRETO
Set rsQtec = CurrentDb.OpenRecordset(rstot)