Access - Consulta desde cuadro de texto

Private Sub btnBusqueda_Click()

    Dim Consulta As String

    If IsNull(Me.txtCampo) Then  ' Aqui valido que mi cuadro de texto este lleno

        MsgBox "llene un campo", vbInformation, "Aviso"

        Me.txtCampo.SetFocus

    Else

        Consulta = "SELECT Id,Nombre,ApellidoPaterno,ApellidoMaterno,Edad"

        Consulta = Consulta & " FROM Personas"

        Consulta = Consulta & " WHERE id = " & Me.txtCampo & ""

        Me.Subformulario.RecordSource= Consulta ' aqui asigno el origen del registro a mi subformulario(La consulta), para que me filtre lo que  puse en mi cuadro de texto.(txtcampo.)

    End If

End Sub

Private Sub Comando17_Click()

Dim Consulta As String

    If IsNull(Me.Txt_Dni) Then

        Consulta = "SELECT DNI,Nombre,Apellido1,Apellido2,ID_Usuario,Zonas From Personas"

        Me.RecordSource = Consulta 

    Else

        Consulta = "SELECT DNI,Nombre,Apellido1,Apellido2,ID_Usuario,Zonas"

        Consulta = Consulta & " FROM Personas"

        Consulta = Consulta & " WHERE DNI = " & Me.Txt_Dni & ""

        Me.RecordSource = Consulta 

    End If

End Sub