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

[xupan007]

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

为什么我写的不能运行呀？谢谢了

[xupan007]

是语法的问题吗？

[helanshan]

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

[DeltaCat]

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

[DeltaCat]

ADODB.CONNECTION 是 OBJECT , 要 用 SET 赋值