Sempre extrair Arquivo na Pasta do Executável.

Estou fazendo uma Agenda Telefônica, que estou usando o VB.Net do VS2008 e SQL Compact 3.5. Ele está funcionando normal, mas o problema está no BackUP. Eu zipo o Banco Agenda.sdf e depois tenho que extrair na mesma pasta do executável. Porque para o programa funcionar, o Banco tem que estar na mesma pasta do Executável. O Estranho é que no Windows Vista ele sempre Extrair na Pasta do Projeto e no Windows XP SP ele extrair no mesmo lugar aonde está o Arquivo Zipado. Esse é o codigo que eu estou usando.


Dim
Procurar As New OpenFileDialog
If Procurar.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim compFile As System.IO.FileStream = System.IO.File.OpenRead(Procurar.FileName.ToString)
Dim decompFile As System.IO.FileStream = System.IO.File.Create(´Agenda.sdf´)
Dim zipStreamObj As New System.IO.Compression.GZipStream(compFile, System.IO.Compression.CompressionMode.Decompress)
Const bufferSize As Integer = 4096
Dim buffer(bufferSize) As Byte
Dim countbytes As Integer
Do
countbytes = zipStreamObj.Read(buffer, 0, bufferSize)
If (countbytes = 0) Then Exit Do
decompFile.Write(buffer, 0, countbytes)
Loop
zipStreamObj.Close()
decompFile.Close()
compFile.Close()
Me.GrupoTableAdapter.Fill(Me.AgendaDataSet.Grupo)
Me.ContatosTableAdapter.Fill(Me.AgendaDataSet.Contatos)
MessageBox.Show(´BackUP Restaurado.´)