弱弱的ado+access数据库初始化问题，"在异步连接时，操作不能被执行。"？？

我在vb里面连接access数据库
代码段如下
    Dim rec As New ADODB.Recordset
    Dim sql As String
        sql = "SELECT tqjbqk.*,tqlxr.*,tqfrdb.*  FROM " & _
                "(tqlxr RIGHT JOIN tqjbqk ON tqlxr.xh = tqjbqk.xh) LEFT JOIN tqfrdb ON tqjbqk.xh = tqfrdb.xh"
    rec.Open RepSql(sql), ADOcon
执行到 ren.open这句的时候，报错..当我单步调试的时候他又不错了，看起来好像跟其他连接冲突，可我没打开其他的啊
"在异步连接时，操作不能被执行。"
这是啥意思有人碰到过嘛?