In Global.asax file
In Genaral
Imports System.Data.OleDb
Imports System.Web
In Application Start
Dim CON As OleDbConnection
Application("CON") = New OleDbConnection("PROVIDER=MSDAORA.1;USER ID=SCOTT;PASSWORD=TIGER")
To Add A new Record to DataBase
1st Method
Dim adp1 As OleDbDataAdapter
Dim ds1 As New DataSet()
Dim dt1 As DataTable
con = Application("con")
adp1 = New OleDbDataAdapter("select * from notice", con)
adp1.Fill(ds1, "notice")
dt1 = ds1.Tables("notice")
Dim cmb As OleDbCommandBuilder = New OleDbCommandBuilder(adp1)
Dim dr As DataRow
dr = dt1.NewRow()
dr("Noticeno") = TextBox2.Text
dr("noticedate") = DateTime.Now
dr("notice") = ta.Value
dr("Branchcode") = dl.SelectedItem
dt1.Rows.Add(dr)
adp1.Update(ds1, "notice")
adp1.Fill(ds1)
Response.Write("Operation Compleated Successfully")