189 8069 5689
步骤如下：
在铜陵等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供网站制作、做网站 网站设计制作按需网站策划,公司网站建设,企业网站建设,品牌网站建设,全网营销推广,外贸营销网站建设,铜陵网站建设费用合理。
1. 先到C:\WINDOWS\system32目录下看看你的系统里是否已经有了MSADODC.ocx和MSDATGRD.ocx这两个文件（多半是没有的），要是有了就直接看第2步吧。
然后放到C:\WINDOWS\system32目录下。
2. 在VS 2005中注册MSADODC.ocx和MSDATGRD.ocx这两个控件。在VS 2005中点击"Tools" -- "Visual Studio 2005 Command Prompt"，输入如下命令即可：
regsvr32 msadodc.ocx
regsvr32 msdatgrd.ocx
我的理解是这样的，当你设置了 ADODC1.CONNECTIONSTRING 属性和 RECORDSOURCE属性时，这个时候ADODC1 并没有连接到数据库，并向数据库提出数据放到 其 RECORDSET 对象中，所以此时 RECORDSET 对象没有被建立和初始化，因此你尝试访问这个对象时就弹出错误了。
你当加入 Set Text1.DataSource = Adodc1 （意为将 TEXT1 绑定到 ADODC1）时，程序运行到这里，ADODC1会自动的连接数据库，并向数据库提取数据记录。因此此时RECORDSET 也就被建立被初始化了，你也就可以访问它了。
还有，你可以用 ADODC1.REFRESH 代替 Set Text1.DataSource = Adodc1 。作用如上。
; 在VB 在 ADO是大家在数据库编程中用得较多的 而在新的中 虽然也可以用它来查询数据库 但在与新的datagrid的绑定中 不能像以前那样使用 datagrid datasoure=rs 而是需要一定的转化 因为新的datagrid datasoure所对应的是 datatable或dataset 而并不是原来的Recordset 所以 在使用中 要把Recordset转换成datatable或 dataset 我们以datatable为例 Function RecordsetToDataTable(ByVal adoRS As ADODB Recordset ByVal strTable As String) adoRS MoveFirst() Dim dt As DataTable dt = New DataTable(strTable) Dim i As Integer Dim strcolname As String Dim t As Type Dim dr As DataRow For i = To adoRS Fields Count strcolname = adoRS Fields(i) Name t = adoRS Fields(i) Value GetType() dt Columns Add(strcolname t) Next While (Not adoRS EOF) dr = dt NewRow() For i = To adoRS Fields Count dr(i) = adoRS Fields(i) Value Next dt Rows Add(dr) adoRS MoveNext() End While Return dt End Function 以上函数是实现将Recordset转换成DataTable 而我们要做的 就是在窗口的load中加入对ADO中的转化后再进行引用 Dim dts As DataTable dts = RecordsetToDataTable(rsuser login ) 其中rsuser为ado Recordset login 为表名 DataGrid DataSource = dts DefaultView lishixinzhi/Article/program/net/201311/13855