vb

--------------------编程问答-------------------- 因为这是个神仙句,不是句VB里的合法命令 --------------------编程问答-------------------- 上ExecuteSQL 的代码 --------------------编程问答-------------------- Dim mrc As ADODB.Recordset
mrc.Open
txtsql = "select 用户名 from 用户表 where 用户名='" & Text1.Text & "'"
Set mrc = ExecuteSQL(txtsql)
-------------------------------
数据库没有连接
--------------------编程问答--------------------

引用 3 楼 lxq19851204 的回复:

Dim mrc As ADODB.Recordset
mrc.Open
txtsql = "select 用户名 from 用户表 where 用户名='" & Text1.Text & "'"
Set mrc = ExecuteSQL(txtsql)
-------------------------------
数据库没有连接

+1

补充：VB ,  基础类