如何实现DATAGRID单击和双击事件

Question

我就DataGrid1和DataGrid2连接到了adodc1，adodc2,DataGrid1,DataGrid2显示了数据库里的表格，其中两表之间通唯一的“客户编号”进行关联，我是想单击DataGrid1中的任意一行,DataGrid2可显示些“客户编号”下的所有订单：代码如下    If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then
        MsgBox "请选择客户", vbOKOnly + vbInformation, "注意"
        Adodc2.Refresh
        Exit Sub
    End If
    DataGrid1.MarqueeStyle = dbgHighlightRow
    Adodc1.Recordset.Fields.Refresh
    Adodc2.RecordSource = "select * from [1001] where 客户编号 ='" & Adodc1.Recordset.Fields(0) & "'"
    Adodc2.Refresh
现在问题是，单击不行，但能选中行，双击是可以的，但不能选中行，而且每次单击“客户编号”，在DataGrid2出现的总是上一次点击的客户下面的订单列表。不管单击也好，双击也罢，只要能实现选中的同时能正确显示对应客户下的订单列表就可以了，急……