Hola tengo una BD en access y una tabla en mysql

Tengo una BD en access y consulta una tabla en mysql al querer filtrar los registros realizados mayores a la hora actual - 5 minutos no me arroja resultados, se que tengo problemas  con el formato aaa/mm/dd hh:mm:ss
trato de covertir los datos a texto y luego a hora pero algo estoy haciendo mal
Option Compare Database
Option Explicit
Dim DD As String ' dias
Dim MM As String ' meses
Dim AA As String ' años
Dim hh As String  'horas
Dim mn As String ' minutos
Dim ss As String 'segundos
Dim ms As String ' milesimas
Public Function AFecha(x As Date) As String
'DD = Day(x)
'If Len(DD) = 1 Then DD = "0" & DD
'MM = Month(x)
'If Len(MM) = 1 Then MM = "0" & MM
'AA = Year(Fecha)
'If Len(AA) = 2 Then
'    If AA < "30" Then
'        AA = "20" & AA
'    Else
'        AA = "19" & AA
'    End If
'End If
hh = Hour(x)
If Len(hh) = 1 Then hh = "0" & hh
mn = Minute(x)
If Len(mn) = 1 Then mn = "0" & mn
ss = Second(x)
If Len(ss) = 1 Then ss = "0" & ss
'AFecha = AA & MM & DD '&  ":" & hh & mn & ss
AFecha = hh & mn & ss
'Dim HHora As Time
'AFecha = CDate(Format(AFecha, "hh:mm:ss"))
DeFecha AFecha
End Function
Public Function DeFecha(x As String) As Date
DeFecha = DateSerial(Val(str(x, 1, 4)), Val(str(x, 5, 2)), Val(str(x, 6, 2)))
End Function