同题!

解决方案 »

  1.   

    Set DataGrid1.DataSource = nothing
    Set DataGrid1.DataSource = Rs
      

  2.   

    Dim CN   As New adodb.Connection                '定义数据库的连接存放数据和代码
        Dim Rs   As New adodb.Recordset
        CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
        CN.Open
        Rs.CursorLocation = adUseClient
        Rs.Open "select * from employees", CN, adOpenDynamicSet DataGrid1.DataSource = Rs
      

  3.   

    问题已解决,最关键的是:Rs.CursorLocation = adUseClient