1- İkinci Sql cümlenizde WHERE şartını belirtmemişsiniz.
2- Catch ex As Exception
MsgBox("Bir Hata Oluştu !!!!")
End Try
gibi bir hata yakalama sistemi kullanacaksanız ex isimli değişkeni kullanmamak büyük hata olabilir. En azından Debug modda çalışırken Msgbox ex.Message şeklinde hata açıklamasını yazdırabilirsiniz. ex.Message dedim ancak ezbere yazdım Vb.Net te en azından buna benzer bir şekilde kullanılıyordur. Hatanızı daha net anlayabilirsiniz.
3- Kullandığınız semt='" + TextBox3.Text + "' şeklindeki ifadeler program güvenliği açısından ciddi tehlike arz eder. Bu şekilde başka kullanıcılar sizin hesabınızla işlem yapabildiği gibi, hesaplarda oynama yapabilir hatta tüm veritabanını silebilir. Bundan dolayı parametreli şekilde çalışırsanız daha iyi olacaktır.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.