innanzitutto aggiungi un modulo di classe al progetto che richiamerai dall'evento click del command button.Nel modulo dovrai definire una funzione nella quale dovrai creare una connessione ed un command.
Nell'evento click chiamerai la funzione passando il parametro che ottieni dal textbox.All'uscita della funzione testerai il risultato.Se è andato tutto bene l'operazione sarà andata a buon fine.

ti allego uno schema della funzione che dovrai mettere nel modulo

Option Explicit
Public Function cerca(ByRef variabile As string) As Long

Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset

On Error GoTo errori
Set cn = New ADODB.Connection
Set cmd = New ADODB.Command
cn.ConnectionString = "dsn=nome database ODBC"
cn.Open
cmd.ActiveConnection = cn
cmd.CommandType = adCmdText
cmd.CommandText = "select campo from tabella where campo = '" & variabile & "';"
cmd.execute
cerca = 0

esci:
cn.Close
Set cmd = Nothing
Set cn = Nothing
Exit Function

errori:
cerca = Err.Number
Debug.Print Err.Description
Resume esci
End Function

---mentre dalla click avrai:
dim classe as nomemodulo di classe
set classe = new nomemodulo
dim risultato as long
set risultato=classe.nomefunzione(variabile)
if risultato = then
msgbox"tutto ok"
else
....
end if


ciao