VBScript

Bonjour,

Ben petit soucis en Vb, mon script ne veux pas se lancer et je n'arrive pas a comprendre pourquoi.
Si vous aviez une idée ce serait sympa.

Function send()
Value = MsgBox ("Do you want to close My Normals Cases",4,"Close My Normals Cases")
Dim wSQL
If Value = 6 Then
Set wSQL = SQLQuery(cnnDB,"UPDATE problems SET status = 100 WHERE (priority = 3) AND (status = 1) AND (rep = 1)")
cnnDB.Execute MySQL

Const adOpenStatic = 3
Const adLockOptimistic = 3

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

objConnection.Open _
"Provider=SQLOLEDB;Data Source=***;" & _
"Trusted_Connection=Yes;Initial Catalog=****;" & _
"User ID=***;Password=****;"

objRecordSet.Open "UPDATE problems SET status = 100 WHERE (priority = 3) AND (status = 1) AND (rep = 1)", _
objConnection, adOpenStatic, adLockOptimistic


End If

End function


Merci d'avance...

JP