Imports System.Data.OleDb
Imports System.Data.OleDb.OleDbConnection

Module Module1
    Public conn As OleDbConnection
    Public ds As DataSet
    Public cmd As OleDbCommand
    Public ad As OleDbDataAdapter
    Public tbl As DataTable


   Public Sub Connect()
        'соединение 
        conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\News.mdb") ' & Application.StartupPath & "\data.mdb")
        conn.Open()
        'команда 
        cmd = New OleDbCommand()
        tbl = New DataTable()

        cmd.Connection = conn
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "select Announce,NText from News"

        'адаптер 
        ad = New OleDbDataAdapter()
        ad.SelectCommand = cmd


        ds = New DataSet()
        ad.Fill(ds) 'заполняем DataSet 
        tbl = ds.Tables(0)

    End Sub
End Module

Public Class WebForm1

    Inherits System.Web.UI.Page
    Protected WithEvents OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter
    Protected WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbUpdateCommand1 As System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbDeleteCommand1 As System.Data.OleDb.OleDbCommand
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection


    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dtr As DataRow
        Connect()

        cmd = New OleDbCommand()

        cmd.Connection = conn
        cmd.CommandType = CommandType.Text


        cmd.CommandText = "INSERT INTO News(Announce, NText) VALUES (@Announce, @NText)"



        cmd.Parameters.Add(New OleDbParameter("@Announce", OleDbType.VarChar,  50 , "Announce"))
        cmd.Parameters.Add(New OleDbParameter("@NText", OleDbType.VarChar,  50 , "NText"))
        
        cmd.Prepare()

        cmd.Parameters("Announce").Value = "cxcvxb"
        cmd.Parameters("NText").Value = "vcb"
        cmd.ExecuteNonQuery()

        'адаптер 
        ad.InsertCommand = cmd

        dtr = tbl.NewRow
        dtr("Announce") = "bla"
        dtr("NText") = "bla bla"
        tbl.Rows.Add(dtr)
        ad.Update(ds)
        ds.AcceptChanges()

        'MsgBox("OK")

    End Sub

    Private Sub OleDbConnection1_InfoMessage(ByVal sender As System.Object, ByVal e As System.Data.OleDb.OleDbInfoMessageEventArgs) Handles OleDbConnection1.InfoMessage

    End Sub
End Class

 Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\News.mdb")
        Dim comm As New OleDbCommand()
        comm.Connection = conn
        comm.CommandText = "INSERT INTO News(NText) VALUES(hjhjkhkj)"
        conn.Open()
        comm.ExecuteNonQuery()
        conn.Close()