Teechart 8 与压缩存在冲突

beenet

程序只要打开Teechart8的图表，关闭时如选择压缩就会出现，
    “尝试打开的数据库已经被机器 以排它的方式打开 当数据库可使用后请再试一次”的错误。
    同样的语句如使用Teechart5，则没有问题。
    不知那位老大能看看。

    Dim conn As ADODB.Connection
    Dim Record As New ADODB.Recordset
    Dim Str As String
    Set conn = CurrentProject.Connection    '添加状态

    TChart1.Series(0).Clear
    TChart1.Series(1).Clear

    Str = ""
    Record.Open Str, conn, adOpenKeyset, adLockOptimistic

    TChart1.Series(0).DataSource = Record
    TChart1.Series(0).YValues.ValueSource = Record.Fields(1).name
    TChart1.Series(0).LabelsSource = Record.Fields(0).name

    TChart1.Series(1).DataSource = Record
    TChart1.Series(1).YValues.ValueSource = Record.Fields(2).name
    TChart1.Series(1).LabelsSource = Record.Fields(0).name

    Record.Close
    Set Record = Nothing
    Set conn = Nothing

唐玉娥

加一句conn.close试一下