...scusate per il ritardo,ma dopo vari tentativi continuo a non risolvere il problema.
VVoVe:

Il codice che mi hai suggerito Brainjar e cioè:
codice:
...
Dim rs As New ADODB.Recordset
selezione = "select scorta from prodotto where idprodotto= " + Text4 + ";"
rs.Open selezione, db
' Nota, si da per scontato l'esistenza del campo scorta nel recordset con un valore valido.
scorta = rs.Fields("scorta").Value

' A questo punto puoi fare il controllo .....
If scorta >= Text6 Then 
....
....
Else
....
....
End If

non funziona come dovrebbe, infatti mi dà il seguente errore:

"errore di compilazione tipo definito dall'utente non definito"

Ho modificato la dichiarazione con
codice:
Dim rs As Recordset
ma mi dà il seguente errore:
"errore di compilazione Impossibile trovare il metodo o il membro dei dati" selezionandomi l'istruzione rs.open



C'è un modo per risolvere questo problema?
grazie