数据库查询 activex

Question

Function DBquery(sqlstr As String) As ADODB.Recordset
'查询Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim fsqlstr As String
'定义连接，记录集constr = "driver={SQL Server};server=dd ;uid=users;pwd=;database=test"
con.ConnectionString = constr
con.Open
'连接字串rs.ActiveConnection = con
fsqlstr = sqlstr
rs.Open sqlstr, , adOpenKeyset, adLockBatchOptimistic, -1
'执行DBquery = rs‘************************
'返回记录集rs.Close
Conn.Close
'关闭连接，关闭记录集
End Function生成dll时报错 属性的无效使用 打*号的行

Answer 1

哥哥，set DBquery = rs