Ayuda base de datos

[ANDRESV17]

Gracias, ya habia resuelto la gran mayoria de otra forma, pero aun me queda la duda con la fecha

Esta instrucción la escribiria al momento de entrega del libro en el boton de Descargar
Hasta el momento tengo el siguiente codigo


Private Sub Command9_Click() 'DESCARGA DE LIBRO

''Descarga de libro (Devolucion)

Dim CMD As String
Dim CMD1 As String
Dim CMD1 As String

Set BD = New ADODB.Connection
BD.Open "Provider=Microsoft.jet.oledb.4.0; data source= Biblioteca.MDB"



VALORES = Text3.Text 'Codigo de libro

CMD = "select R_FECH from PRESTAMO where R_LIB_COD = ("& VALORES &")" 'Selecciona la fecha asignada al prestamo (al libro prestado)

Set BDSS = BD.Execute(CMD) 'Ejecuta la sentencia SQL

Label1 = BDSS(0) 'Fecha de prestamo 'Asigna a Label1 el resultado de la sentencia

Label2 = DATEVALUE(FECHA_ACTUAL) - DATEVALUE(Label1) 'Asigna a Label2 el resultado de restar fecha de prestamo a la fecha actual (Dias prestados)



If Text3.Text = "" Then 'Si el campo codigo de libro esta vacio

MsgBox "Ingrese Código de libro para descargar el libro"


Else 'Si se ha ingresado un codigo de libro

If Label2 = 4 Then 'Si el tiempo supero los 3 dias

Label3 = Label2 - 3 'Aigna a Label3 el número de días de atraso Dias de atraso


MsgBox "Este estudiante tiene" & Label3 & "días de retraso, Multa de $" & Label3 * 2000 'Mensaje de multa


CMD1= "insert into ESTUDIANTE(EST_MULT) VALUES (Label3) 'Guarda la multa del estudiante

Set BD1 = New ADODB.Connection
BD1.Open "Provider=Microsoft.jet.oledb.4.0; data source= Biblioteca.MDB"


CMD2 = "DELETE FROM PRESTAMO WHERE R_LIB_COD = (" & VALORES & ")" 'Descargar el libro (Devolucion exitosa)
Set BDSS = BD2.Execute(CMD)


Else 'Si el tiempo es menor a 3 dias

Label3 = "0" '0 Días de atraso

CMD1 = "DELETE FROM PRESTAMO WHERE R_LIB_COD = (" & VALORES & ")" 'Descargar el libro (Devolucion exitosa)
Set BDSS = BD1.Execute(CMD)


End If

End If

End Sub


Pero al momento de expresar la parte de fecha actual
DATEVALUE(FECHA_ACTUAL)
no se como debo hacerlo


Quisiera saber si ese codigo esta bn expresado y como hago en esta parte de fecha actual