Visual Basic - Error consulta de access en visual

buenas estoy realizando una aplicacion en visual la cual la vinculo con una BD en access, quiero hacer una consulta que me verifique si el mes actual es mayor que el mes que se encuentra en la BD, tengo algo asi

mes = Format(DatePart(DateInterval.Year, Now))
año = Format(DatePart(DateInterval.Month, Now))
con.Open()
Dim cmd As New OleDb.OleDbCommand("Select Mes from prueba where Mes <'" + mes + "'", con)
oData = cmd.ExecuteReader()
If (oData.HasRows) Then
oData.Close()
con.Close()
MsgBox("funciona")
Else
oData.Close()
con.Close()
End If

la variable mes es integer y en la bd es numero entero largo, pero al iniciar el programa me sale error: La conversion de la cadena "Select Mes from prueba where Mes <" en el tipo 'Double' no es valida a ver si alguien me puede ayudar se lo agradeceria mucho.

Al usar un format en mes y año lo que obtienes son cadenas de caracteres, para obtener datos numéricos usa Year(Fecha) y Month(Fecha).
¿Estás seguro de estar en el Foro correcto?

Bueno sinceramente no se si sea el foro correcto, y aplique lo que me dices y sigue enviando el mismo error.