✔ Probleme beim speichern von Datum Uhrzeit in Access-Datenbank

[Ferum]

Guten Morgen,

ich habe im Moment ein kleines Problem. Ich möchte ein Datum mit Uhrzeit in einer Access-Datenbank speichern.

Der Felddatentyp in der Tabelle ist ein Datum/Uhrzeit und hat als Format das Standarddatum.

Sub TAGE_EINTRAGEN()
Dim str_db_name As String
Dim str_suche As String
Dim lng_anzahl As Long
Dim Tagesanzahl, i
Dim Naechster_Monat, Jahr
Dim Test
    Tagesanzahl = DaysOfMonth(DateAdd("m", 1, Now)) '---- Anzahl der Tage im nächsten Monat
    Naechster_Monat = Month(DateAdd("m", 1, Now)) '---- Zahlenwert des nächsten Monats
 
    Jahr = Year(Now)
    If Naechster_Monat = 1 Then
        Jahr = Jahr + 1
    End If
 
    str_db_name = DATENBANK_LUEFTUNGSSTEUERUNG
    Set DB = OpenDatabase(str_db_name)
 
    str_suche = "SELECT * " & _
                "FROM " & AKTUELLE_TABELLE & _
                " WHERE id = 0"
 
    Set DY = DB.OpenRecordset(str_suche)
 
    For i = 1 To Tagesanzahl
        DY.AddNew
        MSFlexGrd_Hauptgrid.Col = 1
 
        Test = DateSerial(Jahr, Naechster_Monat, i) & " " & TimeSerial(0, 0, 0)
        DY.Fields("Startzeit").Value = Test
        Test = DateSerial(Jahr, Naechster_Monat, i) & " " & TimeSerial(0, 0, 0)
        DY.Fields("Endzeit").Value = Test
        DY.Fields("Anlagenstufe").Value = 0
        'DY.Fields("Tagesart").Value = 0
        DY.Update
    Next
 
DY.Close
DB.Close
DATEN_ANZEIGEN
End Sub

Ich hab den Code mal rein gepackt.
Es geht um die Variable Test. In der Zeile mit Date- und TimeSerial soll das ganze zusammen gebaut werden. Das klappt auch soweit. Im Feld steht dann aber immer nur das Datum und die Uhrzeit fehlt.
Ich hab schon einiges ausprobiert, komme aber leider auf keinen grünen Zweig.

Ich hoffe ihr könnt mir helfen und bin für jeden Rat dankbar.

Danke im voraus