Pourquoi ce code ne fonctionne plus ?

Code : Tout sélectionner
; PureBasic Version 3.94
; Librairie Droopy.lib
name$="C:\Thermo"+Str(Year(Date()))+".db"
If FileSize(name$)=-1
Debug FileSize(name$)
LdbCreate(name$,"date,TempM,TempAM,humidite,Pression")
Else
LdbOpen(name$)
EndIf

Là, je sèche complètement.
Je l'utilise avec PureBasic 3.94, je ne l'ai pas essayé avec la version 4, mais je crois que la librairie n'est pas compatible.
Merci d'avance pour votre aide.