İşte çalışan kod satırı;
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim baslik, metin As String
baslik = TextBox1.Text
metin = RichTextBox1.Text
baglan = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Server3\Desktop\mvt.mdb"
Dim baglanti As New Data.OleDb.OleDbConnection(baglan)
baglanti.Open()
ekle = "insert into mvtbl (baslik,metin) values (""" & baslik & """,""" & metin & """)"
Dim kontrol As New System.Data.OleDb.OleDbCommand(ekle, baglanti)
kontrol.ExecuteNonQuery()
baglanti.Close()
MsgBox("Kayıt İşlemi Başarılı")
End Sub
ekle sorgusunun içinde değişkenlerden dönen verileri 3 tane çift tırnak içine alınca sorun çözülmüş oldu.