主题：关于FIND语句

请教专家，下面一段代码总出错，

For Each r As Row In Tables("指定配送耗材_table1").GetCheckedRows()
        Dim dr As Row = Tables("配送公司供货信息2").AddNew
        Dim kr As Row = Tables("三方配送协议").AddNew
Dim AA As String
With e.Form.Controls("TextBox2")
    If .Value IsNot Nothing Then
        AA = e.Form.Controls("TextBox2").Value
    End If
End With
Dim BB As String
Dim CC As String
Dim DD As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        BB= e.Form.Controls("TextBox1").Value
CC= r("厂家代码")
DD= BB & CC

    End If
End With
       
dr("品种分类") = r("品种分类")
        dr("目录编码") = r("目录编码")
        dr("目录名称") = r("目录名称")
        dr("产品编码") = r("产品编码")
        dr("产品名称") = r("产品名称")
        dr("注册证产品名称") = r("注册证产品名称")
        dr("规格") = r("规格")
        dr("型号") = r("型号")
        dr("计量单位") = r("计量单位")
        dr("包装规格") = r("包装规格")
        dr("品牌") = r("品牌")
        dr("注册证号") = r("注册证号")
        dr("投标企业") = r("投标企业")
        dr("生产企业") = r("生产企业")
        dr("质量层次") = r("质量层次")
        dr("中标价") = r("中标价")
dr("配送公司名称") = AA
dr("配送代码") = DD
Dim mr As DataRow
mr = DataTables("三方配送协议").Find("配送代码 = DD " )---------就是这行出错

通过了，谢谢