小问题，请帮助！

Question

我现在用的！你试试！
Public Function conn_string() As Boolean'////test
'sql_server = "SAIKO\YWEI"
'data_name = "kbase"
'user_name = "sa"
'user_pwd = "9635"'////testOn 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