Visual Basic - como generar un numero a partir de la fecha y la h

Hola necesito generar un número a partir de la fecha y de la hora del sistema, éste servirá como campo clave en una base de datos de access. Seguro que es muy fácil pero no soy capaz de hacerlo. gracias.

Un tipo Date es básicamente un Double, luego para convertir un valor de dicho tipo es suficiente con aplicar a dicho valor la función Cdbl.

Dim ahora, dias, horas, minutos, segundos
ahora = Now
dias = Int(DateSerial(Year(ahora) + 1, 1, 1) - ahora)
horas = 24 - Hour(ahora)
minutos = 60 - Minute(ahora)
segundos = 60 - Second(ahora)
Text1.Text = horas * minutos * dias * segundos \ 2

Aqui mostramos el resultado en el text1
Veras que con las horas, minutos, dias, y segundos puedes hacer todas las operaciones que tu quieras, el \2 es para que sea una division entera y no muestre decimales
Saludos: Yo asi lo utilizo