插入数据使用模块类模块

[seaeast]

使用函数ExecSql运行sql语句，往数据库中插入数据，函数放入模块中运行时正常，但是放到类模块运行时就会出现错误为什么？？
Public Function ExecSql(ByVal pSql As String) As Boolean
On Error GoTo ExecSql_Err:
' Set AdoConnect = New ADODB.Connection
With AdoConnect
.CommandTimeout = 10000
.Execute (pSql), , 1
.CommandTimeout = 5
End With
ExecSql = True
Exit Function
ExecSql_Err:
End Function
再类模块中运行时，运行到.CommandTimeout = 10000 .Execute (pSql), , 1时，就会出现错误，是什么原因，在模块与类模块中使用时有什么区别？

[yyuyes]

在模块与类模块中使用是没有区别的，只要你引用了ADO库就可以了


Public Function ExecSql(ByVal pSql As String) As Boolean
On Error GoTo ExecSql_Err:
Dim AdoConnect As New ADODB.Connection
With AdoConnect
.CommandTimeout = 10000
.Execute (pSql), , 1
.CommandTimeout = 5
End With
ExecSql = True
Exit Function
ExecSql_Err:
ExecSql = False
End Function

[seaeast]

Option explicit
Dim AdoConnect As New ADODB.Connection
已经声明了啊

[cly2004]

Public Function ExecSql(ByVal pSql As String) As Boolean
On Error GoTo ExecSql_Err:
Set AdoConnect = New ADODB.Connection
AdoConnect.ConnectionString = "相应的连接字符串"
If AdoConnect.State = adStateClosed Then
AdoConnect.Open '打开连接
End If
With AdoConnect
.CommandTimeout = 10000
.Execute (pSql), , 1
.CommandTimeout = 5
End With
ExecSql = True
Exit Function
ExecSql_Err:
End Function