问标准表达式vb2010编辑按钮中的数据类型不匹配

EN

Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click
    Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=D:\pcInventory.accdb"
    myConnection = New OleDbConnection

    OpenStr = "Has Open Office"
    If TbPCnum.Text = "" Then
        MsgBox("Please select data.")
    Else

        myConnection.ConnectionString = connString
        myConnection.Open()
        Dim str As String
        str = "update [pctable] set [Person Incharge] = '" & TbPI.Text & "', [DeptSection] = '" & TbDS.Text & "', [Workgroup] = '" & TbWG.Text & "', [Network ID] = '" & TbNI.Text & "', [OS] = '" & TbOS.Text & "', [Processor] = '" & TbProcessor.Text & "', [MOBO] = '" & TbMB.Text & "', [Memory] = '" & TbRAM.Text & "', [HDD] = '" & TbHDD.Text & "', [Product Key] = '" & TbKey.Text & "', [MS Office] = '" & CbMS.SelectedValue & "', [Open Office] = '" & tbOO.Text & "', [Anti Virus] = '" & TbAV.Text & "', [Monitor] = '" & TbMonitor.Text & "', [Email Address] = '" & TbEadd.Text & "', [Date Purchased] = '" & TbDP.Text & "', [Machine Type] = '" & comboMT.SelectedValue & "', [Remarks] = '" & TbRM.Text & "', [Password] = '" & TbPW.Text & "'     Where [PCNumber] = '" & TbPCnum.Text & "'"
        Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
        Try
            cmd.ExecuteNonQuery()
            cmd.Dispose()
            myConnection.Close()
            TbPCnum.Clear()
            TbPI.Clear()
            TbDS.Clear()
            TbWG.Clear()
            TbNI.Clear()
            TbOS.Clear()
            TbProcessor.Clear()
            TbMB.Clear()
            TbRAM.Clear()
            TbHDD.Clear()
            TbKey.Clear()
            tbOO.Clear()
            TbAV.Clear()
            TbMonitor.Clear()
            TbEadd.Clear()
            TbDP.Clear()
            TbRM.Clear()
            TbPW.Clear()


        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End If
End Sub