Kodlarda bu şekilde bir yanlışlık var mı?



Private Sub Image2_Click()
For Each ctl In Me.Controls
If TypeName(ct1) = "TextBox" Then
If ctl.Text = "" Then
MsgBox "Boş Bıraktığınız Alanlar Var Lütfen Doldurun"
Exit Sub
End If
End If
Next


Call connection_open

Selected_item = baraj.ListView1.SelectedItem.Text
sql1 = "select * from barajtablo where[Kimlik]=" & Selected_item
rs.Open sql1, conn, adOpenKeyset, adLockPessimistic

rs.Update 1, Me.TextBox1
rs.Update 2, Me.TextBox2
rs.Update 3, Me.TextBox3
rs.Update 4, Me.TextBox4
rs.Update 5, Me.TextBox5
rs.Update 6, Me.TextBox6
rs.Update 7, Me.TextBox7
rs.Update 8, Me.TextBox8
rs.Update 9, Me.TextBox9
rs.Update 10, Me.TextBox10
rs.Update 11, Me.TextBox11
rs.Update 12, Me.TextBox12

MsgBox "Veriler Başarılı Şekilde Güncellendi"

rs.Update
rs.Close
conn.Close
Unload Me
Unload baraj
baraj.Show



End Sub

Private Sub Image3_click()
For Each ctl In Me.Controls
If TypeName(ct1) = "TextBox" Then
If ctl.Text = "" Then
MsgBox "Boş Bıraktığınız Alanlar Var Lütfen Doldurun"
Exit Sub
End If
End If
Next


Call connection_open
sql1 = "select * from barajtablo where [Kimlik]"
rs.Open sql1, conn, adOpenKeyset, adLockPessimistic
rs.AddNew
rs.Fields(1) = Me.TextBox1
rs.Fields(2) = Me.TextBox2
rs.Fields(3) = Me.TextBox3
rs.Fields(4) = Me.TextBox4
rs.Fields(5) = Me.TextBox5
rs.Fields(6) = Me.TextBox6
rs.Fields(7) = Me.TextBox7
rs.Fields(8) = Me.TextBox8
rs.Fields(9) = Me.TextBox9
rs.Fields(10) = Me.TextBox10
rs.Fields(11) = Me.TextBox11
rs.Fields(12) = Me.TextBox12

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")
barajveri.TextBox4 = Format(rs.Fields(4), "#.##0,00")
barajveri.TextBox5 = Format(rs.Fields(5), "#.##0,00")
barajveri.TextBox6 = Format(rs.Fields(6), "#.##0,00")
barajveri.TextBox7 = Format(rs.Fields(7), "#.##0,00")
barajveri.TextBox8 = Format(rs.Fields(8), "#.##0,00")
barajveri.TextBox9 = Format(rs.Fields(9), "#.##0,00")
barajveri.TextBox10 = Format(rs.Fields(10), "#.##0,00")
barajveri.TextBox11 = Format(rs.Fields(11), "#.##0,00")
barajveri.TextBox12 = Format(rs.Fields(12), "#.##0,00")
rs.Update
rs.Close
conn.Close

MsgBox "Başarılı Şekilde Yeni Veri Kaydedildi"
Unload Me
Unload baraj
baraj.Show
End Sub