根据格式的不同读取文件的方法也不同，如果是文本的话，可以使用流，如果是其他的，那就需要添加引用也就是驱动才可以读的到，比如excel 就需要驱动，Public Function Excel导入到数据库(ByVal Str文件名 As String) As DataTable
Dim Dt As New DataTable
Dim Str表中内容 As String = ""
Dim b添加列 As Boolean = False
Dim reange As Excel.Range
Dim Irow, Icol As Integer
Dim Iro
