Grazie per gli interventi
Incuriosito dalla SharpZipLib l'ho provata seguendo le istruzioni che ho trovato al link www.dotnethell.it/articles/Ziplib.aspx
il mio codice è:
Dim s As New ZipOutputStream(File.Create(PercorsoFileBackup.Tex t & ".zip"))
Dim fs As FileStream = File.OpenRead(application.startpath & "\archivio.mdb")
Dim buffer(fs.Length) As Byte
fs.Read(buffer, 0, buffer.Length)

Dim myEntry As New ZipEntry(application.startpath & "\archivio.mdb")
s.PutNextEntry(myEntry)
s.Write(buffer, 0, buffer.Length)

mi viene creato un file zip, ma è danneggiato...vuoto
ho sbagliato qualche passaggio?
grazie