Visual Basic - consulta para anexar datos

hola haber si alguien me puede ayudar

He creado la siguiente consulta para anexar datos a una tabla , el problema viene en que en dos de los campos necesito que el dato para anexar lo tome de una variable , en este caso de datomes y datoAño,¿ como podria hacerlo?

Hay dejo la funcion

Function crear2()
Dim sql As String
Dim db As Database
Dim datomes As Integer
dim datoaño as integer
Set db = OpenDatabase("C:\vb5\WinSMS\inventario.mdb")
datomes = 6
datoaño = 2006
sql = "INSERT INTO [Iniciales Inventario] ( Codigo, Codigo1, Producto, Grupo, Subgrupo," _
& " Orden, [Precio Caja], Activado, Unidades, Proveedor, [Precio Unds], Mes, Año )" _
& "SELECT DISTINCTROW [Datos Productos].Codigo, [Datos Productos].Codigo1," _
& " [Datos Productos].Producto, [Datos Productos].Grupo," _
& " [Datos Productos].Subgrupo, [Datos Productos].Orden, " _
& "[Datos Productos].[Precio Caja], [Datos Productos].[Activado]," _
& "[Datos Productos].Unidades, [Datos Productos].Proveedor," _
& " [Datos Productos]![Precio Caja]/[Datos Productos]![Unidades] AS Suma," _

'esta parte es kla que falla
& " datomes AS Expr1" & " , datoaño AS Expr2" _

& " From [Datos Productos]" _
& " ORDER BY [Datos Productos].Orden;"

end function

& " [Datos Productos]![Precio Caja]/[Datos Productos]![Unidades] AS Suma," _

'esta parte es kla que falla
& " datomes AS Expr1" & " , datoaño AS Expr2" _

Creo que debería ser:

& "'" & datomes & "' AS Expr1" & " , '" & datoaño & "' AS Expr2" _

insertando comillas simples entre algunas de las comillas que pusiste, para "encerrar" la variable.

creo k los tiros no van por ay, pero si le funca k nos los diga.
yo tambén estoi interesado.

Funciona perfectamente

Gracias

Te soluccionaron el problema y ademas das las gracias. Eres de lo mas raro que he encontrado en este foro (no es critica, sino justamente lo contrario) ojala todos aprendieran de ti.
te envio un saludo.