Microsoft VBScript 编译错误：预期语句结束

我正在尝试借助下面的 VB 脚本将一些记录插入到 MS Access 表中。但是当我尝试执行它时，它会抛出编译错误：预期语句结束。有人可以帮我弄清楚我哪里出了问题吗？

Private Sub Form_Click()
Dim dbs         As DAO.Database
Dim DbFullNAme  As String

DbFullName = "D:\G\Diamond\FINAL MS-Access\MS-Access project.accdb"
Set dbs = OpenDatabase(DbFullName)

dbs.Execute "INSERT INTO [2014_Status] ( Prompt, Project_Name, STATUS,Release_Name )SELECT     RoadMap.SPRF_CC, RoadMap.SPRF_Name, RoadMap.Project_Phase,RoadMap.Release_Name FROM RoadMap WHERE (((Exists (select 1 FROM [2014_Status] where RoadMap.SPRF_CC = [2014_Status].[Prompt]))=False));"
dbs.Close
End Sub

VBScript（与 VBA 或其他方言相对）确实not支持键入 Dims。所以

Dim dbs         As DAO.Database
Dim DbFullNAme  As String

需要

Dim dbs
Dim DbFullNAme

VBscript 没有本机 OpenDatabase() 函数。你需要使用ADO连接到您的 Access“数据库”。首先创建一个连接

Set dbs = CreateObject("ADODB.Connection")

然后确定连接字符串 and

dbs.Open cs

其余的代码应该可以工作。

更新评论：

错误信息：

D:\G\Diamond\FINAL MS-Access\query1.vbs(2, 9) Microsoft VBScript compilation error: Expected end of statement

证明 OT 尝试编写 VBScript（添加误导性的 vba/access 标记是 (C) Pankaj Jaju）。