Veri türü uyuşmazlığı hatası veriyor.
1 - Veritabanında alanın "metin" ise ve sen bu alana sayısal değer eklemek istiyorsan sebebi bu olabilir veya bunun tam tersi
2- Bende tarih (datatimerpicker) short yap

Sorun kesinlikle eklemek istediğin veri ile veritabanı alanının uyuşmaması

Metin ise = '" & TextBox1.Text & "'
Sayısal Değer ise = " & TextBox1.Text & "

Veri Tabanı ile kodlarını karşılaştır.