Dim DADatei As New OleDbDataAdapter("SELECT Titel, Interpret, Genre, Jahr," & _
  "angelegt, Lang, DateiDate FROM TDatei WHERE KatID=" & tmpID & "", Verbindung)
Dim DTDatei As New DataTable
 
DADatei.Fill(DTDatei)
DADatei.Fill(DTDatei)

Public Function fZeitKurz(ByVal lSekunden As Long) As String
        fZeitKurz = Int(lSekunden / 60) & ":" & IIf((lSekunden Mod 60) < 10, _
          "0", "") & (lSekunden Mod 60)
End Function

~ no brain, no headache ~