小问题，请帮助！

[ceeilianyubo]

在interdev中连接数据库
代码这样：
dim conn
dim connstring
call conn_init()
sub conn_init()
on error resume next
constring = "driver={sql server};server=BOBO;database=pubs;"
set conn=server.createobject("ADODB.CONNECTION")
conn.open (connstring)
end sub
dim sql
dim rs
set rs=server.createobject("adodb.recordset")
sql="select * from jobs "
rs.Open sql,conn,1,1
告诉我最后一行出错，ADODB.Recordset (0x800A0E7D)。什么情况？？

[friendwei]

我现在用的！你试试！
Public Function conn_string() As Boolean

'////test
'sql_server = "SAIKO\YWEI"
'data_name = "kbase"
'user_name = "sa"
'user_pwd = "9635"

'////test

On Error GoTo err_msg:
If sql_server = "" Or data_name = "" Or user_name = "" Or user_pwd = "" Then
sys_message "连接数据库字符串发生错误:数据库服务器连接参数不完整 !!!", "系统错误"
db_string = ""
conn_string = False
Exit Function
Else
db_string = "Provider=SQLOledb.1;Data Source= '" & sql_server & "' ;Initial Catalog= '" & data_name & "';User ID= '" & user_name & "';Password= '" & user_pwd & "';Persist Security Info=True;APP=Microsoft Development Environment;"
conn_string = True
Exit Function
End If
err_msg:
sys_message "连接数据库字符串发生未知错误:conn_string !!!", "系统错误"
db_string = ""
conn_string = False
End Function