CompactDatabase et DAO36 sous win98 ?

"Mr News" <news.letters-subscribed@laposte.net> a écrit dans le message de
news:zprdoc507h0j.vp29iry6skxo.dlg@40tude.net...

Bonjour à tous,

voila ce qui m'arrive :

j'ai changé les preferences de mon projet VB6 pour pouvoir utiliser DAO36
au lieu de DAO35 et maintenant je remarque que une fonction de mon
programme qui marchait bien 'CompactDatabase' avec DAO35 ne fonction plus
avec DAO36 sous windows 98. Quand je dis ne marche plus je veux dire que

la

base de données initial disparait et que a la place j'ai un base de

données

completemùent vide.

Je ne comprend pas pourquoi...

Si quelqu'un a un solution, je lui dis merci d'avance de me donner un coup
de main.

Bonjour
voilà ce que j'utilise habituellement:

Private Sub mnuAdminCompact_Click()
Dim retval As Integer
Dim destDb As String
Dim Dao36 As New DAO.DBEngine
Dim dbname As String
Dim FileName As String

On Error GoTo errHandler
dbname = nom de la base
retval = MsgBox("Voulez-vous vraiment Compacter la base ?" & vbCrLf &
dbname, vbOKCancel + vbCritical, "")
If retval = vbCancel Then Exit Sub
'faire backup de la base
FileCopy dbname, Left$(dbname, Len(dbname) - 3) & "bak"
destDb = dbname & "c"
' Vérifie qu'aucun fichier ne porte le nom de la
' base de données compressée.
If Dir(destDb) <> "" Then Kill destDb
'compactage
Dao36.CompactDatabase dbname, destDb
'
Kill dbname 'on supprime la base d'origine
FileName = destDb
destDb = dbname
Name FileName As destDb 'renomme la base compactée

MsgBox "La base " & dbname & " a été compactée sous le nom : " _
& dbname, vbOKOnly + vbInformation, ""

Set Dao36 = Nothing
Exit Sub
errHandler:
MsgBox "Erreur 41- " & vbCrLf & Err.Description, vbOKOnly + vbCritical,
""

End Sub

Alfred