请问用vb如何得到数据库的ado connection对象？

Question

Public Function getConn(sqlStr as String) As ADODB.Connection
Dim conn As New ADODB.Connection
Dim strCnn As String
getStrCnn ="dsn=yatl;database=yatl;uid=;pwd="
conn.open strCnn
getConn=conn
End Function为什么我写的不能运行呀？谢谢了

Answer 1

1、引用ADO：microsoft activeX data object 2.6 libaray
2、
Public Function getConn(sqlStr as String) As ADODB.Connection
Dim conn As New ADODB.Connection
Dim strCnn As String
StrCnn ="provider=MSDASQL;dsn=yatl;database=yatl;uid=;pwd="
conn.open strCnn
getConn=conn
End Function

Answer 2

Public Function getConn(sqlStr as String) As ADODB.Connection
Dim conn As New ADODB.Connection
Dim strCnn As String
getStrCnn ="dsn=yatl;database=yatl;uid=;pwd="
conn.open strCnn
Set getConn=conn '----------------------------------------------
End Function

Answer 3

ADODB.CONNECTION 是 OBJECT , 要 用  SET 赋值