With frm_logfile.ListView1.Items(frm_logfile.ListView1.FocusedItem.Index)
	Dim Datum As System.DateTime = .SubItems(0).Text
	Dim myDate As DateTime = New DateTime(2003, 12, 6)
	Dim Status As String = .SubItems(1).Text
	Dim Benutzer As String = .SubItems(2).Text
	Dim Computer As String = .SubItems(3).Text
	Dim DateinamemitVersion As String = .SubItems(4).Text
End With
 
cmd.CommandText = "select * from Logfile where Datum = ? and Status = ? and" & _
  "Benutzer = ? and Computer = ? and  DateinamemitVersion = ?"
cmd.Parameters.AddWithValue("Datum", Datum )
cmd.Parameters.AddWithValue("Status", Status )
cmd.Parameters.AddWithValue("Benutzer", Benutzer )
cmd.Parameters.AddWithValue("Computer", Computer )
cmd.Parameters.AddWithValue("DateinamemitVersion", DateinamemitVersion )