con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & _
  Pfad & "\Source_DB.mdb"
                cmd.Connection = con
 
                'erweiterte Abfrage
 
                Dim Datum As System.DateTime = frm_logfile.ListView1.Items( _
                  frm_logfile.ListView1.FocusedItem.Index).SubItems(0).Text
                Dim myDate As DateTime = New DateTime(2003, 12, 6)
                Dim Status As String = frm_logfile.ListView1.Items( _
                  frm_logfile.ListView1.FocusedItem.Index).SubItems(1).Text
                Dim Benutzer As String = frm_logfile.ListView1.Items( _
                frm_logfile.ListView1.FocusedItem.Index).SubItems(2).Text
                Dim Computer As String = frm_logfile.ListView1.Items( _
                frm_logfile.ListView1.FocusedItem.Index).SubItems(3).Text
                Dim DateinamemitVersion As String = frm_logfile.ListView1.Items( _
                frm_logfile.ListView1.FocusedItem.Index).SubItems(4).Text
 
 
                cmd.CommandText = "select * from Logfile where Datum = '" & _
                  Datum & "' and Status = '" & Status & "' and Benutzer = '" & _
                  Benutzer & "' and Computer = '" & Computer & "' and" & _
                  "DateinamemitVersion = '" & DateinamemitVersion & "'"
 
                'Daten lesen
                Try
                    con.Open()
                    reader = cmd.ExecuteReader()
                    Do While reader.Read()
                        frm_logfile.TextBox1.Text = reader("Info").ToString
                    Loop
                    reader.Close()
                    con.Close()
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try