EVB和*.cdb数据库的连接字符串是什么？？？

[pilipala]

大家最好能给我一段例子，呵呵。
比如：EVB操做*.cdb数据库的增删改查的例子。
谢谢了

[pilipala]

下面是我在Modules中写的（EVB），启动函数是Sub Main()
用的是ADOCE3.1

Option Explicit
Public DBconn As ADOCE.Connection

Public Sub Main()
Call Create_Conn
frmMain.Show
End Sub

Public Sub Create_Conn()
Set DBconn = CreateObject("ADOCE.Connection.3.1")
With DBconn
If .State = 1 Then .Close
DBconn.Open "Provider=cedb;DataSource=" & App.Path & "\DataBase\TName.cdb"
End With
End Sub

调试报错如下：
An error was encountered
while running this program:
Expected statement


大家帮帮我。谢谢了

[pilipala]

up

[pilipala]

没人回答吗？？