如何在VB中添加一个ADO控件

急 --------------------编程问答-------------------- 晕 --------------------编程问答-------------------- '****** 工程引用Microsoft ActiveX Data Objects 2.5 Library
'部件添加 Datagrid1  'Microsoft DataGrid Control 6.0(OLEDB)

'数据库名与表名自己改,并把它与程序放在同一路径

Public conn As New ADODB.Connection '定义数据连接字符串
Public 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

--------------------编程问答-------------------- 哈 --------------------编程问答-------------------- 有问题请先GOOGLE,BAIDU

补充：VB ,  控件