Funciona
Pesq="1"
sql = "select * from Produtos where codInterno=" & CInt(Pesq)
Rst.Open(sql, Cnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
Error
Pesq="A"
sql = "SELECT * FROM Produtos WHERE Descricao LIKE '%" & Pesq & "%' "
Rst.Open(sql, Cnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
Nenhum valor foi fornecido para um ou mais parâmetros necessários.