主题：文本文件合并的问题

Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
Tables("表A").StopRedraw
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName)
    strs = strs.Replace(vblf,"")
    Dim rs() As String = strs.Split(vbcr)
    For i As Integer = 0 To rs.Length - 1
        Dim cs() As String = rs(i).Split(vbtab)
        If cs.Length = 4 Then
            Dim dr As DataRow = DataTables("表A").Addnew()
            dr("第一列") = cs(0)
            dr("第二列") = cs(1)
            dr("第三列") = cs(2)
            dr("第四列") = cs(3)
        End If
    Next
End If
Tables("表A").ResumeRedraw

但是显示错误，主要是显示 dlg.Filter = "文本文件|*.txt" 出错。我想用这段代码将我每日的文本文件添加到foxtable 的 data.tale里面，或者有什么方法吗？

这个是什么原因？ 请大家提示下。