Arkadaşlar benim sorunum accessle bağlantı yaptım fakat bu kod satırıyla kaydedemiyorum insert into hatası veriyor sorunun neden olduğunu söylerseniz sevinirim..

Dim ayarlar As New OleDbConnectionStringBuilder()

 ayarlar.DataSource = "C:\Documents and Settings\Necati\Belgelerim\Visual Studio 2005\Projects\PROJE ÖDEVİ\PROJE ÖDEVİ/proje ödevi.mdb"

 ayarlar.Provider = "microsoft.jet.oledb.4.0"

 Dim yenibaglantı As New OleDbConnection(ayarlar.ConnectionString)

 '

 Dim sorgu As String

 sorgu = " Insert Into ÖĞRENCİ BİLGİLERİ ([KAYIT NO],[TC KİMLİK NO],[ADI],[SOYADI],[CİNSİYETİ],[DOĞUM TARİHİ],[DOĞUM YERİ]) values (?,?,?,?,?,?,?)"

 Dim sutunlar(6) As OleDbParameter

 '

 sutunlar(0) = New OleDbParameter()

 sutunlar(0).OleDbType = OleDbType.VarChar

 sutunlar(0).Value = TextBox1.Text

 '

 sutunlar(1) = New OleDbParameter()

 sutunlar(1).OleDbType = OleDbType.VarChar

 sutunlar(1).Value = TextBox2.Text

 '

 sutunlar(2) = New OleDbParameter()

 sutunlar(2).OleDbType = OleDbType.VarChar

 sutunlar(2).Value = TextBox3.Text

 '

 sutunlar(3) = New OleDbParameter()

 sutunlar(3).OleDbType = OleDbType.VarChar

 sutunlar(3).Value = TextBox4.Text

 '

 sutunlar(4) = New OleDbParameter()

 sutunlar(4).OleDbType = OleDbType.VarChar

 sutunlar(4).Value = TextBox5.Text

 '

 sutunlar(5) = New OleDbParameter()

 sutunlar(5).OleDbType = OleDbType.Date

 sutunlar(5).Value = Convert.ToDateTime(TextBox6.Text)

 '

 sutunlar(6) = New OleDbParameter()

 sutunlar(6).OleDbType = OleDbType.VarChar

 sutunlar(6).Value = TextBox7.Text

 '

 Dim direkveri As New OleDbCommand(sorgu, yenibaglantı)

 Dim parametreler As OleDbParameterCollection

 parametreler = direkveri.Parameters

 parametreler.AddRange(sutunlar)

 If (yenibaglantı.State = ConnectionState.Closed) Then

 yenibaglantı.Open()

 End If

 direkveri.ExecuteNonQuery()

 MessageBox.Show("kaydedildi.")

hatayı direkveri.ExecuteNonQuery() satırını çizerek insert into hatası diye yazıyor . Şimdiden teşekkür ederim.