je veut developper un programme en VBS je suis debutant ;connecter a une base de donner sql serveur ,lire un fichier text qui contient les noms de tous mes table , est executer ma requete ,l'ai resussi a me connecter a la bdd mais il execuete pas la requete voila l'erreur

Erreur de compilation Microsoft VBScript: Fin d'instruction attendue
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
Const adOpenStatic = 3
Const adLockOptimistic = 3
 
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
 
objConnection.Open _
    "Provider=SQLOLEDB;Data Source=FRA;" & _
        "Persist Security Info=true;Initial Catalog=DB_TEST;" & _
             "User ID=USR;Password=USR;"
 
 
 
Dim fso  :          Set fso = CreateObject("Scripting.FileSystemObject")
Dim ObjTextStream : Set ObjTextStream = Fso.OpenTextFile("D:\Chargement_table\commande_vbs\teste\requete.txt", 1, False)
Dim strtmp 
Dim  matable as String  
 
Do While Not ObjTextStream.AtEndOfStream
strtmp = Split(ObjTextStream.ReadAll, vbCrLf)
For i = 0 To UBound(strtmp) 
 
    matable=strtmp(i)
    objRecordset.Open " truncate table matable " , objConnection, _
    adOpenStatic, adLockOptimistic, adCmdText
Next
Loop
ObjTextStream.Close
Set ObjTextStream = Nothing
Set Fso = Nothing 
objConnection.Close