把连接的游标设置成客户端试试。
cnn.CursorLocation =adUseClient 

解决方案 »

  1.   

    就是把连接的游标改成客户端游标。
        Dim Cnn As ADODB.Connection
        Dim Rst As ADODB.Recordset
        
        Set Cnn = New ADODB.Connection
        Set Rst = New ADODB.Recordset
        
        Cnn.ConnectionString = Adodc1.ConnectionString
        Cnn.CursorLocation = adUseClient
        Cnn.Open
        Rst.Open "authors", Cnn, , , adCmdTable
        Rst.Sort = ture