Не удалось преобразовать значение параметра из String в Int32 - Visual Basic .NET

Формулировка задачи:

Две таблицы оборудование и поставщик связанны. Добавляю новое оборудование в таблицу и добавляю поставщика, который находится в таблице "поставщики" и при сохранении выдает ошибку "Дополнительные сведения: Не удалось преобразовать значение параметра из String в Int32". Связанные поля имеют одинаковый формат String. уже голову сломал. Кстати База данных Access и в Microsoft Access записи добавляются без проблем. Вот кодецкий.

If Art.Text <> "" And Nam.Text <> "" And Post.Text <> "" And Type.Text <> "" And Kol.Text <> "" And Cen.Text <> "" And opis.Text <> "" Then
            Me.Validate()
            Me.TeobBindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.TepusDataSet)
            Art.ReadOnly = True : Nam.ReadOnly = True : Post.ReadOnly = True : Type.ReadOnly = True : Kol.ReadOnly = True : Cen.ReadOnly = True : opis.ReadOnly = True
            Button15.Enabled = False : Button13.Enabled = False : Button10.Enabled = False : Button16.Enabled = False
            Me.TeobTableAdapter.Fill(Me.TepusDataSet.teob)
        Else MsgBox("Заполните поля!")
        End If

Решение задачи: «Не удалось преобразовать значение параметра из String в Int32»

textual
                            Листинг программы 
                        
                            If Art.Text.Length > 0 Then