从vbscript执行包含多个单引号的sql

Question

执行上述查询以从vbscript创建新数据库。这是我提出的功能。除此之外，任何其他sql查询都可以正常工作。我想我不知道怎么做 使vbscript逃脱单引号。

executeQuery("IF  NOT EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = 'temp')

创建数据库temp＆＃34;）

Function executeQuery(query)
Const DB_CONNECT_STRING = "Provider=SQLOLEDB.1;Data Source=localhost;Trusted_Connection=True;persist security info=True;Integrated Security=SSPI;"'
Set myConn = CreateObject("ADODB.Connection")
Set myCommand = CreateObject("ADODB.Command" )
myConn.Open DB_CONNECT_STRING
Set myCommand.ActiveConnection = myConn
'myCommand.CommandText = query
myCommand.CommandText = query
myCommand.Execute
myConn.Close
End Function

＆＃39;