Visual Basic - ing electricista

Necesito realizar una consulta a una base de datos de acces y lo estoy haciendo desde visual para verla en una list view pero toma los campos de la bd como variables no definida

este es el codigo que estoy utilizando.

Private Sub cmdLiquidacion_Click()
Dim fliquidacion As String, consulta As String, It As ListItem, I As Byte
Set Dt = OpenDatabase("D:mksoftd1.mdb")

listMedidor.ListItems.Clear


fliquidacion = InputBox("Introduzca la fech en el formato dd/mm/año")

consulta = "select * from Medidor where Fecha = fliquidacion"
Set Rc = Dt.OpenRecordset(consulta)

Rc.MoveFirst

Do While Not Rc.EOF
Set It = listMedidor.ListItems.Add
It.Text = !Num
It.SubItems(1) = !TiPodeEvento
It.SubItems(2) = !Fecha
It.SubItems(3) = !Hora
It.SubItems(4) = !Potencia
It.SubItems(5) = !EnergiaActiva
It.SubItems(6) = !EnergiaReactiva



Rc.MoveNext

Loop


End Sub

¿Y qué tiene que ver el asunto del tema con lo que preguntas?

consulta = "select * from Medidor where Fecha = #" fliquidacion & "#"