<span style="font-family:SimHei;font-size:24px;">Private Sub DataList1_Click()
    Dim strQuery As String
    strQuery = "SELECT*FROM ygyj WHERE 业绩名称='" & DataList1.BoundText & "'"
    With AdoDataSource
                                      .RecordSource = strQuery
                                      .Refresh
    End With
    With DataGrid1
                               .ClearFields
                               .ReBind
    End With
End Sub</span>

1.将图中个控件加载的窗体上,在这之前你可以利用vb可视化数据管理器完成如下数据库表格
2.将Adodc1和Adodc2的名称和caption属性分别都改为AdoDataSource和AdoRowSource
3.右键单击AdoDataSource控件选择ADOCO属性

点击生成选择连接到数据库测试连接成功点确定选记录源

4.对AdoRowSource的操作同上在记录源处稍有不同

5.修改DataList1的属性Rowsource为AdoRowSource ListField，DataField BoundColumbia属性为业绩名称
6.修改DataGrid的属性AllowAddNew,AllowArrows,AllowDelete,AllowUpdata,Appearance属性均为true
4.对AdoRowSource的操作同上在记录源处稍有不同
5.修改DataList1的属性Rowsource为AdoRowSource listField，DataField BoundColumbia属性为业绩名称
6.修改DataGrid的属性AllowAddNew,Appearance属性均为true