Using con AS New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" _
  & Pfad & "\Source_DB.mdb" )
  con.Open()
 
  Using cmd as new OleDbCommand( "Select Count(Dateiname) from LogFile where" & _
    "Dateiname = ?", con )
 
    cmd.Parameters.AddWithValue("DateiName", datei_zerlegt(13) & datei_zerlegt( _
      5) )
    Dim Result as Object = cmd.ExecuteScalar()
    if Result IsNot Nothing then
      return Convert.ToInt32(Result)
    End If
  End Using
 
End Using
 
return -1