Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim baglanti As New OleDbConnection
Dim olecmd As New OleDbCommand("insert into iletisim(Ad,Email,Mesaj,Tarih) values(@Ad,@Email,@Mesaj,@Tarih)", baglanti)
olecmd.Parameters.Add("@Ad", OleDbType.Variant).Value = TextBox1.Text
olecmd.Parameters.Add("@Email", OleDbType.Variant).Value = TextBox2.Text
olecmd.Parameters.Add("@Mesaj", OleDbType.Variant).Value = TextBox3.Text
olecmd.Parameters.Add("@Tarih", OleDbType.Variant).Value = Now()
baglanti.Open()
olecmd.ExecuteNonQuery()
baglanti.Close()
Label1.Text = "Mesajınız Gönderildi"
End Sub


Kodlar bunlar... baglanti.Open() hata satırında durup hatayı veriyo...Veritabanım Access....