Te falta poner las comillas prueba con esto:
Código:
Private Sub Comando16_Click()
Rs.Open "SELECT * FROM alumno WHERE matricula = '" & matricula.Value & "'"
nombre.Value = Rs.Fields("nombre")
edad.Value = Rs.Fields("edad")
domicilio.Value = Rs.Fields("domicilio")
End Sub
Acertaremos ahora...