Access - ACCESS- Recargar cuadro de lista

Private Sub BtnBusqueda_Click()

    Dim Consulta As String

    If IsNull(Me.CmbCampo) Then

        MsgBox "Seleccione un campo", vbExclamation, "Aviso"

        Me.txtBusqueda = Null

        Me.CmbCampo.SetFocus

        ElseIf IsNull(Me.txtBusqueda) Then

        MsgBox "Escriba la busqueda", vbExclamation, "Aviso"

        Me.txtBusqueda.SetFocus

        Else

        Consulta = "SELECT Id,Nombre,Apellido,Fecha_nacimiento,Edad,Lugar_nacimiento,identificacion,Sexo,Estado_civil,Direccion,Numero_hijos,Ocupacion,Tipo_vinculacion,Obra,Codigo_az,Discapacidad,Desplazado,Afrocolombiano,Email,Reingreso"

        Consulta = Consulta & " FROM Empleados"

        Consulta = Consulta & " WHERE " & Me.CmbCampo & " Like '*" & Me.txtBusqueda & "*'"

        Me.Lista.RowSource = Consulta

    End If

End Sub