ช่วยดู code update หน่อยครับ พอดีกด แก้ไขแล้วมันขึ้นแจ้ง error ครับ vb.net

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim update_Constr As String = "Data Source=KWAN-PC\SQLEXPRESS;Initial Catalog=Chqprint;Integrated Security=True"
        Dim update_Comstr As String
        Dim update_Con As SqlConnection
        Dim update_Com As SqlCommand
        If TextBox1.Text <> "" AndAlso TextBox2.Text <> "" AndAlso TextBox6.Text <> "" AndAlso TextBox4.Text <> "" AndAlso DateTimePicker1.Text <> "" AndAlso ComboBox1.Text <> "" AndAlso ComboBox2.Text <> "" AndAlso CheckBox1.Text <> "" Then
            update_Comstr = "UPDATE orders SET or_code = '" & TextBox2.Text & "'," & _
                "or_date=" & "'" & DateTimePicker1.Text & "'" & "," & _
                "or_price=" & "'" & TextBox4.Text & "'" & "," & _
                "bank_name_o=" & "'" & ComboBox2.Text & "'" & "," & _
                "or_remark=" & "'" & TextBox6.Text & "'" & "," & _
                "type_name_o=" & "'" & CheckBox1.Text & "'" & "," & _
                "cus_name_o=" & "'" & ComboBox1.Text & "'" & _
                "WHERE or_id ='" & TextBox1.Text & "'"
            'MsgBox(cmdUpdate.CommandText)
            update_Con = New SqlConnection(update_Constr)
            update_Com = New SqlCommand(update_Comstr, update_Con)
            update_Con.Open()
            Try
                update_Com.ExecuteNonQuery()
                MsgBox("ทำการแก้ไขข้อมูลเสร็จเรียบร้อย.", MsgBoxStyle.Information, "Edit Registration")
            Catch ex As SqlException
                MsgBox(ex.Message)
            End Try
        End If
        update_Con.Close()
        fill_listview()
    End Sub