主题：求助一段代码借在何处

有两个表,一个是"业务"表,一个是"收费"表,用ACCESS数据源,在收费表的DataColChanged表事件中设置如下代码,达到两个表的相同字段值自动从业务表中录入到收费表中:
If e.DataCol.Name = "piao据号码" Then
    Dim cmd As New SQLCommand
    Dim dt As DataTable
    cmd.C
    cmd.CommandText = "SELECT DISTINCT 文号,标的额,任务人,业务类型,委托单位,当事人,piao据号码 From {业务}"
    dt = cmd.ExecuteReader()
    Dim dr AS DataRow = dt.find("[piao据号码]=" & e.datarow("piao据号码") )
    If dr isnot nothing then
        dr("文号")=e.DataRow("文号")
        dr("标的额")=e.DataRow("标的额")
        dr("任务人")=e.DataRow("任务人")
        dr("业务类型")=e.DataRow("业务类型")
        dr("委托单位")=e.DataRow("委托单位")
    End If
End If


经测试无法运行,错误发生在执行dr("文号")=e.DataRow("文号")代码时,提示:不存在名称为""的DataTable

 dr("文号")=e.DataRow("文号")   改为 e.DataRow("文号") = dr("文号")