VB6.0中如何添加ADODB控件?

首先引用组件 Microsoft ActiveX Data Objects 2.x Library
然后可以用ADO编写数据库操作.(ADODB 是组件，不是控件）

ADO读取Excel文件(以下VBScript代码，与VB可能有差异)
Dim Conn
Set Conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sSourceXLS & ";" & _
"Extended Properties=""Excel 8.0;HDR=No;IMEX=1;"""
rs.Open "Select * from [Sheet1$]", Conn, 1, 3
c=rs.recordcount
rs.move 1
msgbox (rs(0))'读取单无格A1的内容
rs.close
conn.close