Merhaba,
Direkt Access veritabanına kayıt eklemek için şöyle bir yol izleyebilirsin.
şu an kendim hepsini yazdığım için harfleri mümkün olduğunca hatasız yazmaya çalıştım. kodlamaya yapıştırdığında hatalı harf çıkarsa bildirirsiniz.

imports system.data
imports system.data.oledb
imports system.xml
public class form

private sub kaydet_click(byval sender as system.object, byval e as system.eventargs) handles kaydet.click

Dim baglanti, sorgu as string
dim parametre(4) as oledbparameter
baglanti= "provider=Microsoft.jet.oledb.4.0; data source=C:\\Eczane Klasörü\\Saglik.mdb" 'burda Access veritabanı ile bağlantıyı sağladık
sorgu = "insert into SaglikTablosu (Musteriadi, adresi, Teshis, ilacAdi, Fiyat) values(?,?,?,?,?)" 'veritabanında eklenilecek tablo ve alanları belirledik.
oledbconnection1 = new oledbconnection(baglanti)
oledbconnection1.open()
oledbcommand1 = new oledbcommand(sorgu, oledbconnection1)
parametre(0) = new oledbparameter()
parametre(1) = new oledbparameter()
parametre(2) = new oledbparameter()
parametre(3) = new oledbparameter()
parametre(4) = new oledbparameter()
'burada formumuzdaki text alanlarını veritabanındaki ilgili alanlar ile ilişkilendiriyoruz.
parametre(0).value=textbox1.text
parametre(1).value=textbox2.text
parametre(2).value=textbox3.text
parametre(3).value=textbox4.text
parametre(4).value=convert.toint32(textbox5.text) 'burası fiyat olduğu için text içinde yazılanı sayıya çevirdik. o şekilde veritabanına atması için.

oledbcommand1.parameters.add(parametre(0))
oledbcommand1.parameters.add(parametre(1))
oledbcommand1.parameters.add(parametre(2))
oledbcommand1.parameters.add(parametre(3))
oledbcommand1.parameters.add(parametre(4))
oledbcommand1.executenonquery()
end sub
end class