主题：请帮看看代码提示错误说的是什么？

请问窗口按钮中下列代码执行时提示错误是什么原因？（目的：在表二中列名2里找不到表一中列名1中的内容时，在表二中添加表一的该行相关列的内容）

Dim km As string = Tables("表一").Current("列名1")
Dim ykm As DataRow = DataTables("表二").Find("[列名2]  = '" & km & "'")
    if ykm Is Nothing   Then 
        If MainTable.Name = "表一"
            Dim f As New Filler
            f.SourceTable = DataTables("表一") 
            f.SourceCols = "m,n,o,p,q,r" 
            f.DataTable = DataTables("表二") 
            f.DataCols = "a,b,c,d,e,f" 
            f.Fill() '填充数据
        End If
    End If