Visual Basic - URGENTE

Set RS = DB.OpenRecordset("SELECT * " & _
"FROM historico " & _
"WHERE [fechah]='" & FechaSel & "'and[tipo mh]='" & CondicionS & "'")

Por que esto funciona cuando fechah es tipo texto y cuando fehcah la cambio a tipo fecha me manda un error en busqueda de criterios ayudenme por favor con un ejemplo GRACIAS

Estoy seguro de que el problema debe ser porque FechaSel no es una variable de formato fecha (date). Si es asi, simplemente especifica que FechaSel sea de tipo Date.