Visual basıc.2005 ten veritabanını kayıt ekleme

veritabanı ile bağlantıyı yapıyorum. Listeleme ve sorgu da yapabiliyorum ama yeni kayıt eklerken sorun çıkıyor.

Arkadaşlar Veritabanından listeleme yaparken şu kodu kullanıyorum.

Dim veritabanı As OleDb.OleDbConnection = New OleDb.OleDbConnection("provider= microsoft.Jet.Oledb.4.0;Data Source=D:\TelRehberi.mdb")
Dim adapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("Select * from TelDefteri WHERE FirmaAdı LIKE '" & TextBox1.Text & "%' ", veritabanı)
Dim ds As DataSet = New DataSet
adapter.Fill(ds, "TelDefteri")
DataGridView1.DataSource = ds.Tables("TelDefteri")
veritabanı.Close()

Silmek için şu kodu kullanıyorum.

Dim veritabanı As OleDb.OleDbConnection = New OleDb.OleDbConnection("provider= microsoft.Jet.Oledb.4.0;Data Source=D:\TelRehberi.mdb")
Dim sil As OleDb.OleDbCommand = New OleDb.OleDbCommand("delete from TelDefteri where FirmaAdı=?", veritabanı)
sil.Parameters.AddWithValue("@FirmaAdı", TextBox1.Text)
veritabanı.Open()
sil.ExecuteNonQuery()
veritabanı.Close()

Aynı şekilde yeni kayıt eklerken de

Dim veritabanı As OleDb.OleDbConnection = New OleDb.OleDbConnection("provider= microsoft.Jet.Oledb.4.0;Data Source=D:\TelRehberi.mdb")
Dim yaz As OleDb.OleDbCommand = New OleDb.OleDbCommand("İNSERT İNTO TelDefteri ", veritabanı)

kodunu yazdıktan sonra
yaz.parametres.insert("@FirmaKodu", Textbox1.Text)

yazıyorum.burada hata veriyor. Yardımlarınız için teşekkürler

ıns zamanla herseyı ogrenecegım ark bılgısı olanlar bu konu hakkında lutfen yardım etsın sımdıden tsk edıyorum