baraj formundaki güncelleme butonunun kodunu bu şekilde formatlı aktardığımda sorun göremedim
diğer alanlar da benzer şekilde düzenlenebilir

barajveri.TextBox1 = Format(rs.Fields(1), "dd/mm/yyyy")

barajveri.TextBox2 = Format(rs.Fields(2), "#,##0.00")

barajveri.TextBox3 = Format(rs.Fields(3), "#,##0.00")