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.