Dim TimeOpen As Date
Dim sqlProblemID As String
TimeOpen = Now
 
 
 
sqlProblemID = "SELECT CaseOpen, " & _
            "CaseNr FROM tbl_Case WHERE " & _
            "(CaseOpen = #" & FormatDateTime(TimeOpen, 0) & "#)"
 
With DataEnvironment1.rsSQLNewTT02
    If .State = adStateOpen Then
           .Close
    End If
           .Source = sqlProblemID
           .Open
End With