Bonjour à tous,

J'ai un petit soucis de connection de vb6 vers une base de données Foxpro :
en fait la connection se passe bien mais n'est pas "exclusive" malgré ce code :

Public FoxND As New ADODB.Connection
Public srtConnect As String
Public RSFox As New ADODB.Recordset

   srtConnect = "Provider=MSDASQL; Driver={Microsoft Visual FoxPro Driver}; 
   Extended Properties=""SourceDB= " & txtPathND.Text & ";SourceType=DBF; 
   Deleted=Yes; Exclusive=Yes;""; "
    
   FoxND.Mode = adModeReadWrite
   FoxND.Open (srtConnect)
   RSFox.Open "Select * from b_local", FoxND, adOpenKeyset, adLockOptimistic, 
                                                                                             adCmdText

   'jusque là tout va bien mais : 

    Set cmd1 = New ADODB.Command
    cmd1.CommandType = adCmdText
    cmd1.ActiveConnection = FoxND
   
    cmd1.CommandText = "Set Exclusive On"
    cmd1.Execute   
    cmd1.CommandText = "Alter table b_local add column recnum integer"  => refus!
    cmd1.Execute
   
   'là il rouspète et me dit que la connection n'est pas exclusive! Or, dans le 
   strConnect, je précise bien "Exclusive=yes".

  Quelqu'un pourrait-il m'aider? Comme vous avez sans doute pu le constater, je
  suis novice en vb6 et encore plus en bd Foxpro.

   Merci à tous,

   Syb.