Visual Basic - A VER SI ALGUIEN LOGRA SACAR EL ERROR

TENGO TODO EL DIA QUERIENDO SACAR ESTE ERROR... NO ME DEJA AHCER LAS INSERCION
OCUPO UNA MANO SANTA:: QUE HAGA LO SIGUIENTE!!
Dim Usuario As String
Dim adquisicion As String
Dim hra_ini As Date
Dim fecha As Date
Dim hra_fin As Date
Dim prestadoR As Integer

rst.Commands("PrestamosR").CommandText = "INSERT INTO TPrestamosR VALUES ('" & Trim(Usuario) & "', '" & Trim(adquisicion) & "', '" & hra_ini & "', '" & hra_fin & "', ''&fecha&'', '" & prestadoR & "' )"
rst.PrestamosR

MIS CAMPOS SON DATETIME.ecepto usuario, adquisicion y prestado.. ME ARROJA UN ERROR....
error de sintaxis al convertir una cadena de caracteres a datetime....

PREVIO A ESTO A CADA VARIABLE LE ASIGNO LOS VALORES QUE VAN A SER LOS DEL NUEVO REGISTRO!! ASI:
fecha = frmPrestamosR.DTP_FE.Value
hra_fin = Format(frmPrestamosR.txthra.text, "Long Time")
Usuario = Trim(frmPrestamosR.txt_cvus2.text)
adquisicion = Trim(frmPrestamosR.txtad_ps2.text)
hra_ini = Time
prestadoR = 1

OJALA QUE UNA MENTE ILUMINADA ME DIGA COMO RESOLVERLO!!

Prueba sustituyendo fecha por Format(fecha,"yyyy/dd/mm Hh:Nn:Ss")

ASi???
rst.Commands("PrestamosR").CommandText = "INSERT INTO TPrestamosR values ('" & Trim(Usuario) & "', '" & Trim(adquisicion) & "', '" & hra_ini & "', '" & hra_fin & "', '" & Format(fecha, "yyyy/dd/mm Hh:Nn:Ss") & "', '" & prestadoR & "' )"
rst.PrestamosR

NO FUNCTION!! .... TENGO QUE ENTREGAR EL PROYECTO PROXIMO MIERCOLES Y NO PUEDO SACAR ESTRE PROBLEMA!!!! AYUDA PORFAVOR!!!