Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset
Dim rst As ADODB.Recordset
Dim stokens() As String
'On Error GoTo exectuesql_error

stokens = Split(sql)
Set rst = New ADODB.Recordset
Set ExecuteSQL = New ADODB.Recordset
If InStr("INSERT,DELETE,UPDATE", UCase$(stokens(0))) Then
mycon.Execute sql

Else

rst.Open Trim$(sql), mycon, adOpenKeyset, adLockOptimistic
Set ExecuteSQL = rst
End If
exectuesql_exit:
Set rst = Nothing
Set mycon = Nothing
Exit Function
exectuesql_error:
Resume exectuesql_exit
End Function

为什么老是出现 rst.Open Trim$(sql), mycon, adOpenKeyset, adLockOptimistic错误啊
我用的是ACCESS数据库，MYCON是是数据库链接用的相对路径
或者加我QQ78075493

你输出一下sql看看是什么...看看有没有语法错误...
MyCon应该是Connection对象实例...

Private Sub Command1_Click()
Set mycon = New ADODB.Connection
mycon.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/db1.mdb"
mycon.Open
Dim mrc As ADODB.Recordset
Set mrc = New ADODB.Recordset
txtsql = "select * from [user] where name='" & Trim(Text1.Text) & "'and password='" & Trim(Text2.Text) & "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.RecordCount < 1 Then
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
MsgBox "请填入正确的用户名和密码", vbExclamation + vbOKOnly, "警告"
Exit Sub
Else: MsgBox "adfsfsdfsd"
End If
End Sub

有人已经帮我解决了，就是那个txtsql语句，原来我是用txtsql = "select * from user where name='" & Trim(Text1.Text) & "'and password='" & Trim(Text2.Text) & "'"所以出错，user加中括号就行，但是我不知道为什么要这样加，别人说是因为用的是ACCESS数据库就得加中括号，是这样得吗？

因为是关键字...所以 要加方括号.

关键字，什么意思，能详细解释下吗，谢谢了

就像在VB在if,for,while等..都是关键字..是系统..保留的...不能使用...在access中..如果要使用Access里的关键字的话..就要加中括号...
...如果连关键字..都不知道是什么..那我建议..先不要搞这些..先把基础学好..再说.