Mejorar un SQL en mi aplicación

Dim mySql As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset

    mySql = "SELECT Top 1 DNI, Consulta.FechaConsulta FROM Consulta WHERE DNI = 1018413461  ORDER BY FechaConsulta DESC"
Debug.Print DNI, FechaConsulta
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset(mySql, dbOpenSnapshot)
        'Asignamos el valor al TextBox
    Me.txtUltimaConsulta.Value = rst.Fields(1).Value
        'Cerramos el recordset y liberamos memoria
    rst.Close
    dbs.Close
    Set rst = Nothing
    Set dbs = Nothing

Lo que necesito es cambiar el numero de la cedula En la expresión DNI= 1018413641 por el nombre del textbox del formulario que es DNI para que quede universal y no estar colocando el valor de la cedula, les agradezco el consejo ya que estoy varado en este tópico, y no soy muy experto en DAO Gracias