怎样在VB6.0中导入ADODB？

在VB6.0中编写代码的时候怎样才能在输入As后自动弹出ADODB --------------------编程问答-------------------- '只要你在VB窗体最上面的工程中引用 Microsoft ActiveX Data Objects 2.5 Library

'打入 Dim conn as new 就会弹出如下图

Dim conn As New ADODB.Connection '定义数据连接字符串
Dim rs As New ADODB.Recordset '定义记录集
Dim db$, Appdisk$

Private Sub Form_Load()
   Appdisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
   db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Appdisk & "cbmcust.mdb"
   conn.CursorLocation = adUseClient
   conn.Open db '打开数据库连接
   rs.Open "zip", conn, adOpenKeyset, adLockPessimistic '打开记录集
   If rs.recordcount > 0 Then rs.MoveFirst
   Set DataGrid1.DataSource = rs
End Sub


效果图
http://p.blog.csdn.net/images/p_blog_csdn_net/cbm666/366646/o_ADONEW.jpg

--------------------编程问答-------------------- 最简单的方法在VB中新建VB数据工程,会自动引用必要的DLL文件. --------------------编程问答-------------------- 谢谢哦

补充：VB ,  基础类