Dim ayarlar As New OleDbConnectionStringBuilder()
ayarlar.ConnectionString = "provider=microsoft.jet.oledb.4.0;" + "Data Source=" + Application.StartupPath().ToString + "\\proje ödevi.mdb"
Dim yenibaglantı As New OleDbConnection(ayarlar.ConnectionString)
'
Dim sorgu As String
sorgu = " Insert Into [ÖDEMELER] ([ödeme şekli],[servis]) values (?,?)"
Dim sutunlar(1) As OleDbParameter
'
sutunlar(0) = New OleDbParameter()
sutunlar(0).OleDbType = OleDbType.VarChar
sutunlar(0).Value = ComboBox1.Text
'
sutunlar(1) = New OleDbParameter()
sutunlar(1).OleDbType = OleDbType.VarChar
sutunlar(1).Value = ComboBox2.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("Kaydınız Başarıyla Eklendi")

BU kod satırlarıyla kaydediyor gibi görünüyor ama veritabanına baktığımda kaydetmiyor sorun ne olabilir acaba nerede hata yapmış olabilirim..