将excel导入access的问题 - .NET技术 / ASP.NET

VB.NET code:

Public Class excelAccess

Public Function exceltoTb(ByVal strExcelFileName As String, ByVal strSheetName As String) As System.Data.DataTable
Dim cnnStr As String = "Provider=Microsoft.Jet.OleDb.4.0;" & "Data Source=" & strExcelFileName & ";Extended Properties=Excel 5.0;"
Dim cnn As OleDbConnection = New OleDbConnection(cnnStr)
cnn.Open()
Dim strExcel As String = Format("select * from [{0}$]", strSheetName) '"select * from [sheet1$]"
Dim ds As System.Data.DataSet = New System.Data.DataSet
Dim apt As OleDbDataAdapter = New OleDbDataAdapter(strExcel, cnn)
apt.Fill(ds, strSheetName)
cnn.Close()
exceltoTb = ds.Tables(strSheetName)

End Function
Public Sub tbToAcc(ByVal username As String)
Dim cnnStr As String = "Privoder=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & System.Web.HttpContext.Current.Server.MapPath("NJUTDW.MDB") & ";Extended Properties=Excel 5.0;"
Dim cnn As OleDbConnection = New OleDbConnection(cnnStr)
cnn.Open()
Dim strCmd As String = "insert into users(username,pwd) values('" & username & "','" & username & "')"
Dim cmd As OleDbCommand = Ne