Primero tienes que obtener el dato de la BD
Código:
Set rs = New ADODB.Recordset
sql = "SELECT Id FROM Usuarios WHERE Nom ='" & (Text1.Text) & "' "
rs.Open sql, conn, adOpenForwardOnly, adLockReadOnly
If rs.EOF Then
'No existe
End If
Tu problema en si es de programacion no de BD.