imports System. Data. OleDb Public Class Form1 Dim conn As OleDbConnection = New OleDb. OleDbConnection("Provider=Microsoft. Jet. OLEDB.4.0;Data Source=can. mdb;") Dim da As OleDbDataAdapter Dim cmd As OleDbCommand Dim ds As New DataSet(0) Private Sub Button1_Click Handles Button1. Click conn. Open >>> hata burda da = New OleDbDataAdapter("select from mcm where ad like'" & TextBox1. Text & "'", conn) da. Fill(ds, 0) If ds. Tables(0). Rows. Count > 0 Then MsgBox Else cmd = New OleDb. OleDbCommand("insert into mcm values('" & TextBox1. Text & "')", conn) cmd. ExecuteNonQuery MsgBox conn. Close End If End Sub End Class Arkadaslar şimdi problem şu ilk kayıt yapıyorm sorun yok aynı şeyi yazıp tekrar kayıt et dediğimde hata weriyor buraya kadar hersey güzel fakat onu silip farklı bişi yazıp sonra kaydet dediğimde bu hatayı veriyor sizce ne olabilir hatam yardımcı olabilir misiniz? şimdiden teşekkürler.