又一问: 调用com总出错，请帮忙！！！

---------------------------------------------------------------------------
COM组件代码：Option Explicit
Private conn As ADODB.Connection
Private rs As ADODB.Recordset
Public Function SqlExecute(ConnectionString As String, SqlString As String) As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open ConnectionString
rs.Open SqlString, conn
Set SqlExecute = rs'"driver={SQL Server};server=127.0.0.1;uid=sa;pwd=198071;database=web_db;"
'"select * from News  order by  News_Time  desc ", connEnd Function-------------------------------------------------------------------------------------
调用：
Option Explicit
Private conn As ADODB.Connection
Private rs As ADODB.Recordset
Private rs1 As ADODB.Recordset
Private com As webdb.webdbcommon ‘COM 组件对象
Private Sub Form_Load()Dim sql As String
Dim connstring As String
sql = "select * from News "
connstring = "Driver={SQL server};server=(LOCAL);Uid=sa;pwd=198071;database=web_db;"
Set rs1 = com.SqlExecute(connstring, sql)End Sub----------------------------------------------------------------------------------
也不知道错在哪里，调用出错，还请高手帮帮，谢谢！