Dim c As New OleDb.OleDbConnection
c.ConnectionString = "provider=microsoft.jet.oledb.4.0; data source =" & Application.StartupPath & "/anaokulu.mdb;"
c.Open()
Dim com As New OleDb.OleDbCommand("insert into ogrenci(tc,ad,soyad,cinsiyet,yas,ucret,adres) values (' " & TextBox1.Text & " ' , ' " & TextBox2.Text & " ' , '" & TextBox3.Text & "', ' " & ComboBox1.Text & " ' , " & TextBox4.Text & ", ' " & TextBox5.Text & " ' , '" & TextBox6.Text & "')", c)

If com.ExecuteNonQuery() > 0 Then
MsgBox("Kayıt yapıldı.")
End If

c.Close()

Bu kodlar ile vb projemizin Debugının içinde bulundan Anaokulu veritabanındaki ogrenci tablosuna verileri kaydederiz. Kolay gelsin..