Visual Basic - Nombre del mes en SQL

Hola, necesito hacer una consulta que me muestre totales por mes, cuando consulto el mes por número me sale bien pero cuando lo quiero convertir en letras (enero, febrero, etc.) me sale en todos el mes de Enero.

La consulta que tengo es:

Data1.RecordSource = "select datepart('m',fecha) as Mes,sum(vr_unitario*cantidad) as Total from fact_enc,factura where fact_enc.no_fact=factura.no_fact group by datepart('m',fecha)"

Data1.Refresh

Muchas gracias a quien me pueda colaborar.

En Sql server se utiliza la funcion
select DATENAME ( mm , '01/01/2004' )
y te regresa el nombre del mes pero en Ingles y Access no reconoce la funcion DATENAME, asi que lo mas conveniente es que utilizes una Función donde mandas como parametro el numero y te regresa el mes ejemplo:
Mes=1
NombreMes=Mes
Function Mes(i As Integer) As String
Select Case i
Case 1
Mes = "Enero"
Case 2
Mes = "Febrero"
Case 3
Mes = "Marzo"
Case 4
Mes = "Abril"
Case 5
Mes = "Mayo"
Case 6
Mes = "Junio"
Case 7
Mes = "Julio"
Case 8
Mes = "Agosto"
Case 9
Mes = "Septiembre"
Case 10
Mes = "Octubre"
Case 11
Mes = "Noviembre"
Case 12
Mes = "Diciembre"
End Select
End Function