Visual studio 2010 使用vba将csv文件导入access数据库

我正在使用visual basic和visual studio 2010

我研究了导入csv文件以访问数据库，并发现了这种通用代码。问题是，我对VisualBasic很陌生。我声明了变量，但是我得到了错误：“应该声明”。。Do while和循环有一个错误：“语句不能出现在方法之外

Public Class Form1
    Dim strPathFile As String
    Dim strFile As String
    Dim strPath As String
    Dim strTable As String
    Dim blnHasFieldNames As Boolean

    blnHasFieldNames = True


    strPath = "C:\Users\vissia18\Desktop\ReportDB\"

    strTable = "Report"

    strFile = Dir(strPath & "*.csv")

    Do While Len(strFile) > 0
      strPathFile = strPath & strFile
      DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
            strTable, strPathFile, blnHasFieldNames

      strFile = Dir()
Loop
End Class

---

我看到的第一件事是没有声明任何方法或子例程。 这是必要的。 像这样声明一个

Main

怎么样：

Public Class Form1
    Sub Main()
         Dim strPathFile As String
         Dim strFile As String
         ...
    End Sub
End Class

这将为您的应用程序提供一个起点

我可以推荐一下吗？特别是标有“Visual Basic基础知识：面向绝对初学者的开发”的视频演练