一个问题？

Question

我在公用模块中定义如下的一个函数：
Public Function executesql(ByVal sql As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "xueji", "as", "as"
rs.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic
Set executesql = rs
End Function
在一个窗体的单击事件中有如下的代码：
Private Sub Command1_Click()
Dim txtsql As String
Dim mrc As ADODB.Recordset
Dim msgtxt As String
txtsql = "select * from user where userid='" + Text1.Text + "'"
Set mrc = executesql(txtsql)
If mrc.EOF Then
MsgBox "good"
Else
MsgBox "bad"
End If
End Sub
但我运行是出现了
对象对象或with块变量未设置的实时错误！！
请问一下怎么解释？？？
rs.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic是不是有语法上的错误？

Answer 1

cnn.Open "xueji", "as", "as" '有错

Answer 2

cn.open "xueji","as","as" 这一句你想实现什么？
还有你的txtsql语句错误，txtsql="select * from user where userid='" & trim(text1.text) & "'"