If rsRecords.RecordCount = 0 Then
     MsgBox "Kein Einträge"
 ElseIf (rsRecords.RecordCount = 1) Then
 
     'Dim strInstallDate As String
     'strInstallDate = "d/m/yy h:mm;@"
     'strInstallDate = "#" & Format(Now(), "d/m/yy h:mm;@") & "#"
     'strInstallDate = Format(Now(), "####")
     'strInstallDate = Now()
     'strDate = Now()Date)
 
 
     'InstallDate
     'Dim strInstallDate As String
     strInstallDate = "'#" & Cells(15, 2).Value & "#'"
     'strInstallDate = Format(Cells(15, 2).Value, "@")
     'strInstallDate = "d/m/yy h:mm;@"
     'strInstallDate = "#" & Format(Now(), "d/m/yy h:mm;@") & "#"
     'strInstallDate = Format(Now(), "####")
     'strInstallDate = Now()         
 
     Debug.Print strInstallDate
 
     'RIO
     Dim strRIO As String
     strRIO = Cells(12, 2).Value
 
      With rsRecords
         If Not .BOF And Not .EOF Then
             Debug.Print "Name:" & rsRecords.Fields.Item(0).Name
             Debug.Print "Value:" & rsRecords.Fields.Item(0).Value
             Debug.Print "Type:" & VarType(rsRecords.Fields.Item(0).Value)
             .MoveLast
             .MoveFirst
             If .Supports(adUpdate) Then
                 ![F4] = "" & strInstallDate & ""
                 '![F6] = strRIO
                 .Update
             Else
                 MsgBox "adUpdate fail!"
             End If
         Else
             MsgBox "BOF/EOF"
         End If
          .Close
     End With
 Else
     MsgBox "Mehrer EInträge gefunden"
 End If