求大神带
vb代码：
Public Function ExeSQL(ByVal sql As String) As ADODB.Recordset
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnection As String
Dim strArray() As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
On Error GoTo Errhandler:
strConnection = "Provider = SQLOLEDB.1;Integrated Security =SSPI;Persist Security Info=False;Initial Catalog=pos;Data Source=127.0.0.1"
strArray = Split(sql)
cn.Open strConnection
If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
rs.Open Trim$(sql), cn, adOpenKeyset, adLockOptimistic
Set ExeSQL = rs
Else
cn.Execute sql
End If
ExeSQL_Exit:
Set rs = Nothing
Set cn = Nothing
Exit Function
Errhandler:
MsgBox "错误号: " & Err.Number & "错误信息: " & Err.Description, vbExclamation
Resume ExeSQL_Exit
End Function
结果报错说：用户定义类型未定义，求解！
[最优解释]
On Error GoTo Errhandler:
把这句删掉，你就会停在错误的某行了， 然后看看是哪个类型没定义，定义下，找个库就行了
你这个操作数据库的 要引用 ADO控件
[其他解释]
引用 Microsoft ActiveX Data Object x.x。x.x是版本号。
[其他解释]
如果代码是正确的，你照样贴过来的，出现这个错误。
检查（1）对应的库是否引用齐全了（2）源代码是否复制齐全了。
[其他解释]
额，请问是不是ADODB这个有问题呢
[其他解释]
ok了，谢谢大神啦
