veri değiştirme makrosunda hata

[iaydin20]

merhaba;
arkadaşlar aşağıdaki kodlarda bir hata var bir türlü çalıştıramadım ilgilenebilirseniz çok memnun olurum şimdiden teşekkürler...

Private Sub CommandButton3_Click()  
On Error Resume Next
   Dim conn As New ADODB.Connection
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" & DBpath _
           & ";Extended Properties=Excel 8.0;"
   conn.Execute "update " & ShName & _
              " set isimsoyad ='" & TextBox1 & "', tckimlikno ='" & TextBox2 & _
              " , sskno ='" & TextBox4 & " , babaadi ='" & TextBox5 & " , cinsiyeti ='" & TextBox6 & _
              " , dogumyeri ='" & TextBox7 & " , dogumtarihi ='" & TextBox8 & _
              " , adres ='" & TextBox11 & " , telev ='" & TextBox9 & " , telcep ='" & TextBox10 & _
              "' where isimsoyad='" & ListBox1.Column(0)

 

[ftekin]

Bence projenizi koyarsanız daha çabuk cevap bulabilirsiniz.Ayrıca hatayı da net şekilde belirtirseniz daha iyi olacaktır.