主题：帮忙看看导入Excel的时候出问题

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "Excel文件|*.xls|Excel文件|*.csv" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

    e.Sender.Text = "导入中"

    Dim Book As New XLS.Book(dlg.FileName)

    Dim Sheet As XLS.Sheet = Book.Sheets(0)

    CurrentTable.StopRedraw()

    '注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致

    Dim nms() As String = {"第一列","第二列","第三列","第四列","第五列","第六列","第八列","第九列"}

    Application.DoEvents

    Dim cmd As new sqlcommand

    cmd.commandtext = "Select distinct 第一列,第二列 from {表A}"

    Dim dt As DataTable =  cmd.ExecuteReader

    For n As Integer = 1 To Sheet.Rows.Count -1

        Dim bh As String = "第一列 ='" & sheet(n,0).Text & "' and 第二列 = '" & sheet(n,1).Text & "'"

        If dt.Find(bh) Is Nothing Then 

            Dim r As Row = Tables("表A").AddNew() 

            For m As Integer = 0 To nms.Length - 1

                r(nms(m)) = sheet(n,m).Value

            Next

        End If

    Next

    e.Sender.Text = "导入"   

    CurrentTable.DataTable.Save

    CurrentTable.ResumeRedraw() 

End If