je pense qu'il me manque un truc du style :

Declare Function SilOuvrirSession Lib "sildde2" (ByVal szVersion As String, ByVal szGpaoDir As String, ByVal szDatabase As String, ByVal szUser As String, ByVal szPassword As String, ByVal szDate As String) As Integer