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!!

Aqui es claro que el valor contenido en la variable fecha esta en formato no aceptado por el motor de la base de datos. Si estas utilizando Access o sql como bases de datos y en especial Sql las mismas reciben, normal mente, el formato de fecha MM/dd/yyyy, y es en esta forma que tu tienes que guardar los datos, independientemente como lo muestres despues en tus programas; asi que si estas guardando la fecha "10/08/2003" (Dies de Agosto del 2003) deberas tranformar a "08/10/2003", al momento de guardar. Dale que es casi seguro que este es tu problema.

Suerte

Al campo fecha cuando lo vas a insertar ponele
DateValue(campo)
Puede llegar a ser esto no estoy segura...
Suerte.

a la hora de insertar utiliza el signo # " & variable & " # para fechas y recuerda que access su formato establecido para fechas es mm/dd/yyyy

busca en:
rst.Commands("PrestamosR").CommandText = "INSERT INTO TPrestamosR VALUES ('" & Trim(Usuario) & "', '" & Trim(adquisicion) & "', '" & hra_ini & "', '" & hra_fin & "', ''&fecha&'', '" & prestadoR & "' )"
rst.PrestamosR
y colocas:
rst.Commands("PrestamosR").CommandText = "INSERT INTO TPrestamosR VALUES ('" & Trim(Usuario) & "', '" & Trim(adquisicion) & "', '" & hra_ini & "', '" & hra_fin & "',#''&Cstr(fecha)&''#, '" & prestadoR & "' )"
y como te dijeron antes que la fecha este en formato mm/dd/yyyy