Visual Basic - Problemas con fechas

Agradezco las sugerencias que me dieron, pero ninguna de ellas me funcionó, envío el código integro de ese módulo, espero me puedan ayudar.

Public Sub CargarTablaExcel(rutaexcel)
Dim opc As Integer
Dim cuenta As Long
Dim MedInst As String
Dim FechaInst As Date
Dim IdMarca As Integer
Dim Marca As String
Dim Diametro As Integer
Dim Sello As String

Call Conexiones.conexionexcel
Call Conexiones.recinstExcel
Call Conexiones.conexionfoxred
StrSql = "SELECT * FROM [Hoja1$]"
recExcel.Open StrSql, conexcel
Set frm_principal.DataMedidores.DataSource = recExcel
opc = MsgBox("Confirmar la operación", vbYesNo, "Japami")
If opc = vbYes Then
While Not recExcel.BOF And Not recExcel.EOF
frm_principal.DataMedidores.Col = 0
cuenta = frm_principal.DataMedidores.Text
frm_principal.DataMedidores.Col = 1
MedInst = frm_principal.DataMedidores.Text
frm_principal.DataMedidores.Col = 2
FechaInst = frm_principal.DataMedidores.Text
frm_principal.DataMedidores.Col = 3
IdMarca = frm_principal.DataMedidores.Text
frm_principal.DataMedidores.Col = 4
Marca = frm_principal.DataMedidores.Text
frm_principal.DataMedidores.Col = 5
Diametro = frm_principal.DataMedidores.Text
frm_principal.DataMedidores.Col = 6
Sello = frm_principal.DataMedidores.Text

StrSql = "UPDATE usuarios SET usufecac=#" & Format(FechaInst, "aaaa/mm/dd") & "#, usunumac='" & MedInst & "', Sello='" & Sello & "', usufabac=" & IdMarca & ", usudiaac=" & Diametro & " WHERE usucuent = " & cuenta & ""
confoxred.Execute StrSql

recExcel.MoveNext
Wend
Else
Exit Sub
End If
MsgBox "La operacion se realizó con éxito", vbOKOnly, "Japami"
End Sub

Como mencioné antes, si quito la parte de la fecha, no me genera problemas, la actualización es satisfactoria. Me comentaron que usando ## en lugar de '' en la consulta, pero me marco error de sintaxis.

la consulta esta bien, el formatdo de la fecha tb, pero en la partede la fecha el signo nuemeral osea # va despues de las comillas ej:
usufecac="# & Format(FechaInst, "aaaa/mm/dd") & #"
otyra cosa no vi