错误类型；名称重定义 帮忙修改一段代码～～在线等 急！！！

本地调试时出现
错误类型：
Microsoft VBScript 编译器错误 (0x800A0411)
名称重定义
/jgds/reg/common.asp, line 9, column 4
Dim strSQL 'Holds SQL string
---^

以下是代码
<%
'Set the script timeout in seconds
Server.ScriptTimeout = 90

'Set Dimension Variables
Dim strDataBasePath 'Holds the path to the database
Dim cString 'Holds the connection string
Dim adoCon 'Holds the ado connection
Dim strSQL 'Holds SQL string

'Set the variable to hold an ADO connection
Set adoCon = Server.CreateObject("ADODB.Connection")

'------------------------------------------------------------------------------------
'改变数据库路径
strDataBasePath = "users.mdb"
'------------------------------------------------------------------------------------

'Connection string for the dat

0x800A0411) 名称重定义错误 帮忙修改错误 C程序中重定义类型不匹配的问题。 英语,帮忙修改,看有没错误. 帮忙修改程序中的错误 修改名称 帮忙修改一段错误程序，急 错误类型： 错误类型: 电脑出现蓝屏 然后开机后显示从严重错误中恢复 错误类型：信息