急急急急急急急！！！！！实时错误'-2147168242(8004d00e)'

Public Function ExecSql(ByVal sql As String) As Boolean                   '执行 Sql 语句,返回成功或失败
Debug.Print sql
On Error GoTo err:
    cmd.ActiveConnection = getCon
    cmd.CommandText = sql
    cmd.CommandTimeout = 30
    cmd.CommandType = adCmdText
    cmd.Execute
    ExecSql = True
    Exit Function
err:
    conn.RollbackTrans
    MsgBox err.Description
    ExecSql = False
End Function
麻烦帮忙看一下