ADO的简单连接问题

Question

Dim conn As ADODB.Connection
Const connectString = "udi=;pwd=;drive{SQLServer};server=local;database=vbPrac;dsn=,,connection=adConnectAsync"Private Sub Form_Load()
     With conn
        .ConnectionString = connectString
        .ConnectionTimeout = 10
        .Open
     End With
End Sub运行显示Error:object variable or with block variable not set

Answer 1

Dim conn As New ADODB.Connection加了个new

Answer 2

Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection对象需要实例化

Answer 3

'先要引用ADO
Dim conn As new ADODB.Connection
set conn=createobject("ADODB.Connection")
Const connectString = "udi=;pwd=;drive{SQLServer};server=local;database=vbPrac;dsn=,,connection=adConnectAsync"Private Sub Form_Load()
     With conn
        .ConnectionString = connectString
        .ConnectionTimeout = 10
        .Open
     End With
End Sub

Answer 4

是对象没有实例化的原因，这个已经解决
但我调试只能通过DSN连接ODBC,请问能不能直接连SQL Server啊？
明明是装了SQL Server的，而且运行正常，在其中也创建了vbPrac这个数据库，但上面的语句调试总是显示找不到

Answer 5

connectString ="Provider=sqloledb;Data Source=local;Initial Catalog=vbPrac;User Id=;Password=;connection=adConnectAsync;"

Answer 6

connection=adConnectAsync什么意思？