error al buscar registros en acces

[rishart]

hola si perdon
aki dejo el codigo de como estoy haciendo para buscar en access el registro

vano:esta declarado con dim vano as string

vano = Trim(InputBox("AÑO: ", "PRODUCCION DE LECHE"))
Set rst = dbs.OpenRecordset("select * from leche2 where ano like '" & vano & "' order by ano")
If rst.RecordCount = 0 Then
MsgBox "Registro Inexistente", 48, "Mensaje de Error"
ElseIf rst.RecordCount = 1 Then
Text25.Text = rst.Fields("ano")
Label49.Caption = rst.Fields("fecha")
Text54.Text = rst.Fields("leche")
Text1.Text = rst.Fields("lechetotal")
Text85.Text = rst.Fields("monto")
Text11.Text = rst.Fields("montototal")
Text12.Text = rst.Fields("enero1")

ano esta declarado en la base de datos como texto
fecha como date
leche y lo demas igual esta declarado como numero

la cuestion es que al buscar por año como solo se creo con el registro año y los demas estan vacios para su resgitro despues entonces me marca el error que mencione antes y al darle debug marca con una linea amarilla el label49

ojala y me puedan ayudar gracias..... saludos