TableExecuteSQL "C:\Test.mdb", "select * from TestTable where 姓名='张三'"
Sub TableExecuteSQL(strDBPath, strSQLCode)
    Dim connObj
    Set connObj = CreateObject("ADODB.Connection")
    connObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source = " & strDBPath
    connObj.execute strSQLCode
End Sub

我怎么判断这个sql语句返回的真假呢,我用open老是会遇到到错误,想问问有没有别的方法,我程序是在vb6.0的环境下执行的,请有相着代码回复,谢谢合作

用adodc控件

execute 命令用错了。

'刚网上抄的代码，未测试。你慢慢看。就是改了一行命令。
Public Function TableExecuteSQL(strDBPath, strSQLCode) As Recordset
    Dim connObj
    Set connObj = CreateObject("ADODB.Connection")
    connObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source = " & strDBPath
    TableExecuteSQL = connObj.execute(strSQLCode)
End Function

楼上正解，可以返回一个 Recordset对象

Execute方法只能返回记录的快照，不能用于数据记录更新、修改、添加，一般该命令不作为提供记录集使用，多用于一次性执行sql语句，如delete、insert、update等。再就是在vb6里对类对象赋值需加set，net里不再使用set了。

提示用户自定义类型未定义 ,这个Recordset怎么来的,