vb实时错误，无效sql语句

下面代码那里错了啊，运行时“rst.Open strsqlstmt”这一行提示：
“无效的 SQL语句；期待 'DELETE'、'INSERT'、'PROCEDURE'、'SELECT'、或 'UPDATE'。”

Public Sub sqlext(ByVal strsqlstmt As String) '执行数据库操作
Dim cmd As New ADODB.Command
connect
Set cmd.ActiveConnection = cnn
cmd.CommandText = strsqlstmt
cmd.Execute
Set cmd = Nothing
disconnect
End Sub
Public Function queryext(ByVal strsqlstmt As String) As ADODB.Recordset '执行数据库查询
Dim rst As New ADODB.Recordset
connect
Set rst.ActiveConnection = cnn
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.Open strsqlstmt
Set queryext = rst
End Function

麻烦各位了

---

你最起码得把变量strsqlstmt 的值给出来，才能帮你看什么原因。。。

---

没带参数吧！。。。。。。。。。。。。。。。。。。。。。。。

---

这段代码我是根据书上的
rst.open strsqlstmt上面只写着打开记录集
只知道ByVal strsqlstmt As String
而且strsqlstmt只出现在Public Sub sqlext(ByVal strsqlstmt As String)和Public Function queryext(ByVal strsqlstmt As String) As ADODB.Recordset这两个里面
那该如何定义strsqlstmt变量

---

试试

SQL code:
select * from 表名

---

引用