ADO连接数据库的几种方法

Question

下面两种用字符串连接ACCESS数据库的方法哪种好用？
(一）
Dim Con As ADODB.Connection   
Set Con = New ADODB.Connection
    Con.open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                            "Data Source=D:\我的文档\程序\ly.mdb;Persist Security nfo=False"
（二）   
Public con As Connection
 Set Con = New Connection
     Con.Open "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DBQ=" & App.Path & "\ly.mdb;DefaultDir=" & App.Path & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=" & App.Path & "\connect.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"

Answer 1

第一种方法用SQL = "CREATE TABLE [表] (" & _
          "[编号] COUNTER NOT NULL, " & _
          "[类型] Text(50) NOT NULL DEFAULT ," & _
          "[数量] Text(50) NOT NULL ,PRIMARY KEY(ID)) "
    Con.Execute SQL
可以实现创建新表，怎么用第二种方法总是提示错误？那第2种连接创建表用什么方法呢？

Answer 2

Con.open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                            "Data Source=D:\我的文档\程序\ly.mdb;Persist  Con.Open "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DBQ=" & App.Path & "\ly.mdb;DefaultDir=" & App.Path & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=" & App.Path & "\connect.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"如果出错,请下载最新的rs驱动,这个我在web都常用的,两种的创建表是一样的方法的,因为要遵守sql语言标准