另见http://expert.csdn.net/Expert/topic/1251/1251569.xml?temp=.4520838需要的控件
Adodc1
  ConnectionString = _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=C:\Program Files\Microsoft Visual Studio\" & _
      "VB98\NWIND.MDB;" & _
    "Persist Security Info=False"
  RecordSource = "Orders"Adodc2
  ConnectionString = _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=C:\Program Files\Microsoft Visual Studio\" & _
      "VB98\NWIND.MDB;" & _
    "Persist Security Info=False"
  RecordSource = "Customers"DataGrid1
  DataSource = Adodc1
  
DataList1
  RowSource = Adodc2
  ListField = "CustomerID"
  Visible  = FalsePrivate Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
    With DataList1
        .Visible = True
        .Left = DataGrid1.Left + DataGrid1.Columns(ColIndex).Left
        .Top = DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row) + DataGrid1.RowHeight
        .Width = DataGrid1.Columns(ColIndex).Width
    End With
    DataList1.SetFocus
End SubPrivate Sub DataList1_Click()
    DataGrid1.Text = DataList1.Text
    DataList1.Visible = False
End SubPrivate Sub DataList1_Validate(Cancel As Boolean)
    DataList1.Visible = False
End Sub