Dim TimeOpen As Date                              ' Variable für aktuelles 
' Datum und Zeit 
Dim sqlProblemID As String                      ' Variable für SQL String
TimeOpen = Now                                          ' Aktuelles Datum und 
' Zeit
 
 
' Dieser SQL String soll mir die TroubleCase Nummer anhand des Datums und der 
' Zeit 
' aus der Datenbank lesen und mir diese anschliessend beim schliessen des
' TroubleCases in einer msgbox anzeigen. Aber was muss ich da als Datum/Zeit
' eingeben in die Abfrage eingeben, denn 12.12.2002 22:45:00 geht nicht, also 
' habe ich
' es mit diesem Konstrukt probiert.
 
sqlProblemID = "SELECT CaseOpen, " & _
            "CaseNr FROM tbl_Case WHERE " & _
            "(CaseOpen = " & FormatDateTime(TimeOpen, 0) & ")"
 
 
' Der SQL String wird an das rs im Dataenvironment übergeben und das rs geöffnet
 
With DataEnvironment1.rsSQLNewTT02   
    If .State = adStateOpen Then       ' Falls das Dataenvironment offen --> 
    ' close
           .Close
    End If
           .Source = sqlProblemID        ' Übergabe des SQL Strings
           .Open
End With