标准表达式中的数据类型不匹配错误visual basic

Question

我正在尝试创建一个小型数据库，我几乎已经完成但我有一个问题。我正在尝试将DataGridView的所有内容添加到我的数据库表中。我一直收到错误：＆＃39;标准表达式中的数据类型不匹配。＆＃39;任何人都可以帮我找出原因。过去一周我一直在拉头发。此外，数据库的所有内容都被删除了，但没有添加任何内容，因为我收到了该错误。这是我的代码：

    Dim connect As New OleDbConnection
    connect.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=../Database.mdb")
    connect.Open()

    Dim str As String
    str = "DELETE * FROM Tickets"
    Dim cmdd As OleDbCommand = New OleDbCommand(str, connect)
    Try
        cmdd.ExecuteNonQuery()
        cmdd.Dispose()

        Dim AssignedCSR, Network, TicketNumber, SeatName, AssetSerial, MACAddress, ClientName,
            Building, Room, Phone, PowerPack, Location, AdditionalDetails, ActiveDirectory, BaseImage,
            HibernationSettings, Install_CAE, Symantec, AddedToDomain, CAE_FULL_CONNECT, RemoveFreecell,
            VerifySW, VerifyEmail, EstablishConnection, AddedBy, Status1, Status2, Status3, Status4,
            Finished, ReturnedBy As String
        Dim DateReceived As Date
        For p As Integer = 0 To Me.DataGridView1.Rows.Count - 1
            AssignedCSR = Me.DataGridView1.Rows(p).Cells(0).Value.ToString()
            Network = Me.DataGridView1.Rows(p).Cells(1).Value.ToString()
            TicketNumber = Me.DataGridView1.Rows(p).Cells(2).Value.ToString()
            DateReceived = Me.DataGridView1.Rows(p).Cells(3).Value.ToString()
            SeatName = Me.DataGridView1.Rows(p).Cells(4).Value.ToString()
            AssetSerial = Me.DataGridView1.Rows(p).Cells(5).Value.ToString()
            MACAddress = Me.DataGridView1.Rows(p).Cells(6).Value.ToString()
            ClientName = Me.DataGridView1.Rows(p).Cells(7).Value.ToString()
            Building = Me.DataGridView1.Rows(p).Cells(8).Value.ToString()
            Room = Me.DataGridView1.Rows(p).Cells(9).Value.ToString()
            Phone = Me.DataGridView1.Rows(p).Cells(10).Value.ToString()
            PowerPack = Me.DataGridView1.Rows(p).Cells(11).Value.ToString()
            Location = Me.DataGridView1.Rows(p).Cells(12).Value.ToString()
            AdditionalDetails = Me.DataGridView1.Rows(p).Cells(13).Value.ToString()
            ActiveDirectory = Me.DataGridView1.Rows(p).Cells(14).Value.ToString()
            BaseImage = Me.DataGridView1.Rows(p).Cells(15).Value.ToString()
            HibernationSettings = Me.DataGridView1.Rows(p).Cells(16).Value.ToString()
            Install_CAE = Me.DataGridView1.Rows(p).Cells(17).Value.ToString()
            Symantec = Me.DataGridView1.Rows(p).Cells(18).Value.ToString()
            AddedToDomain = Me.DataGridView1.Rows(p).Cells(19).Value.ToString()
            CAE_FULL_CONNECT = Me.DataGridView1.Rows(p).Cells(20).Value.ToString()
            RemoveFreecell = Me.DataGridView1.Rows(p).Cells(21).Value.ToString()
            VerifySW = Me.DataGridView1.Rows(p).Cells(22).Value.ToString()
            VerifyEmail = Me.DataGridView1.Rows(p).Cells(23).Value.ToString()
            EstablishConnection = Me.DataGridView1.Rows(p).Cells(24).Value.ToString()
            AddedBy = Me.DataGridView1.Rows(p).Cells(25).Value.ToString()
            Status1 = Me.DataGridView1.Rows(p).Cells(26).Value.ToString()
            Status2 = Me.DataGridView1.Rows(p).Cells(27).Value.ToString()
            Status3 = Me.DataGridView1.Rows(p).Cells(28).Value.ToString()
            Status4 = Me.DataGridView1.Rows(p).Cells(29).Value.ToString()
            Finished = Me.DataGridView1.Rows(p).Cells(30).Value.ToString()
            ReturnedBy = Me.DataGridView1.Rows(p).Cells(31).Value.ToString()

            str = "INSERT INTO Tickets(AssignedCSR,Network,TicketNumber,DateReceived,SeatName,AssetSerial," & _
                "MACAddress,ClientName,Building,Room,Phone,PowerPack,Location,AdditionalDetails,ActiveDirectory," & _
                "BaseImage,HibernationSettings,Install_CAE,Symantec,AddedToDomain,CAE_FULL_CONNECT,RemoveFreecell," & _
                "VerifySW,VerifyEmail,EstablishConnection,AddedBy,Status1,Status2,Status3,Status4,Finished,ReturnedBy) " & _
                "VALUES('" & AssignedCSR & "','" & Network & "','" & TicketNumber & "',#" & DateReceived & "#,'" &
                SeatName & "','" & AssetSerial & "','" & MACAddress & "','" & ClientName & "','" & Building & "','" &
                Room & "','" & Phone & "','" & PowerPack & "','" & Location & "','" & AdditionalDetails & "','" &
                ActiveDirectory & "','" & BaseImage & "','" & HibernationSettings & "','" & Install_CAE & "','" &
                Symantec & "','" & AddedToDomain & "','" & CAE_FULL_CONNECT & "','" & RemoveFreecell & "','" &
                VerifySW & "','" & VerifyEmail & "','" & EstablishConnection & "','" & AddedBy & "','" &
                Status1 & "','" & Status2 & "','" & Status3 & "','" & Status4 & "','" & Finished & "','" &
                ReturnedBy & "')"
            cmdd = New OleDbCommand(str, connect)
            cmdd.ExecuteNonQuery()
            cmdd.Dispose()
        Next
        connect.Close()

        Dim i As Integer = DataGridView1.CurrentRow.Index
        MsgBox("Ticket " & DataGridView1.Item(2, i).Value.ToString() & " was successfully updated!")
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try