Non sò se il tuo codice è volutamente incompleto per sintetizzare.
Comunque devi collegarti con il DB, poi fai un SELECT, il valore stringa del RST lo inserisci in una variabile stringa e poi fai una comparazione dei valori stringa con StrComp(, vbBinaryCompare).
Può anche darsi che vi sia un metodo più breve.