J'ai le code suivant et lorsque j execute mon .vbs

et bien celui ci va lire mon access et ecrit des donnes dans un document Word.

:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
 
Set objRange = objDoc.Range()
objDoc.Tables.Add objRange,1,3
Set objTable = objDoc.Tables(1)
 
 
Set objConn = CreateObject("ADODB.Connection")
Set LaBase = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= C:\Inetpub\wwwroot\FcB.accdb;"
 
 
Set objRS = CreateObject("ADODB.Recordset")
Lavariable = inputbox("Les transactions avec quelle équipes voulez-vous voir ?")
sqlString = "Select * from [Transaction] where IdEquipe = " & Lavariable &""
 
 
objConn.Open LaBase
 
 
objRS.Open SQLString, objConn	
 
 
 
do until objRS.EOF
	    for each x in objRS.Fields
	       Response.Write(x.name)
	       Response.Write(" : ")
	       Response.Write(x.value & "<br />") 
	    next
	    Response.Write("<br />")
	    objRS.MoveNext
	loop
 
 
 
 
    ExecuteGlobal oFile.WriteLine
    oFile.Close
 
 
objDoc.SaveAs("C:\Scripts\Word\Rapport.doc")
objWord.Quit
objRS.close
Il me donne une erreur à la ligne 12.
Code de la ligne 12:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set LaBase = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= C:\Inetpub\wwwroot\FcB.accdb;"
et le message d'erreur est :

Erreur : Objet requis : '[String: "Provider=Microsoft.A"]'
Source Erreur d'execution Microsoft vbScript

Je ne comprends pas ce qu'il n'aime pas et je n'ai plus d'idée..