2nd Method
Dim icmd As OleDbCommand
icmd = New OleDbCommand("insert into elecDt values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & dl.SelectedItem.ToString & "')", Application("con"))
Dim r As Integer
r = icmd.ExecuteNonQuery
Response.Write("Operation Compleated Successfully")