win7装的vb6.0没有ado控件（是部件里也没有），老师说安kb983246补丁，但msu文件打开说不适用您的计算机

ado控件是需要添加的。

具体步骤为：

工程——部件——勾选“Microsoft ADO Data Control 6.0”

确定以后，工具箱上就会有ado控件了。

strConn = "Provider=SQLOLEDB.1Integrated Security=SSPIPersist Security Info=FalseUser ID=saInitial Catalog=kaoqingData Source=JANSON"

不知上句的字符串内容是否正确。sql数据库的连接代码我没有，给ACCESS数据库的连接代码供参考：

strConn = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\hxrkgl.mdbPersist Security Info=False"

你的其它代码经调试未发现问题，正确运用了ADODB数据对象。但从你的叙述中看，你另外使用了ADODC数据控件，是否是该功件的属性设置有问题。

补充：

1)ADODC数据控件作连接字符串正确后，如未指定数据表，运行会报错，你可删除该控件，运行你的代码不会有问题。

如果你是新建数据工程，VB会自行加载ADO数据对象。如果你是新建EXE工程，则应由工程菜单选引用选项，在其窗口选MICROSOFT ACTIVEX DATA OBJECTS 2.0 LIBRARY加钩即可。不过建议按新建数据工程简单。

2)我用以下代码调试你的主要代码，仅按新建EXE工程，则应由工程菜单选引用选项，在其窗口选MICROSOFT ACTIVEX DATA OBJECTS 2.0 LIBRARY加钩，并添加DATAGRID部件，无问题，在VB6调试：

Private Sub Form_Load()

Dim strConn As String

Dim pubConn As New ADODB.Connection

Dim rsTable As New ADODB.Recordset

Dim strSQL As String

'strConn = "Provider=SQLOLEDB.1Integrated Security=SSPIPersist Security Info=FalseUser ID=saInitial Catalog=kaoqingData Source=JANSON"

strConn = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\hxrkgl.mdbPersist Security Info=False"

pubConn.Open strConn

rsTable.CursorLocation = adUseClient

strSQL = "select * from mdlk_sj"

'strSQL = "select * from attdcardrec"

rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic

Set DataGrid1.DataSource = rsTable

End Sub

另外,团IDC网上有许多产品团购,便宜有口碑

---