Gente se alguem puder dar uma olhada e coisa simples to errando em algum lugar.
qtdP = "SELECT IdProduto, QtdProduto From TblProdutos where TblProdutos.IdProduto = & Me.TxtCodProd"
Set QtSql = CurrentDb.OpenRecordset(qtdP)
TotQtdSql = QtSql(QtdProduto)
o campo TxtCodProd é numerico.
qtdP = "SELECT IdProduto, QtdProduto From TblProdutos where TblProdutos.IdProduto = & Me.TxtCodProd"
Set QtSql = CurrentDb.OpenRecordset(qtdP)
TotQtdSql = QtSql(QtdProduto)
o campo TxtCodProd é numerico.