'Data Access **************************************************
"Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\DB1.mdb" 

"Driver={Microsoft dBase Driver (*.dbf)};DBQ=C:\"       

"Server=(local);Database=NorthWind;Trusted_Connection=True;"

 'Disable Button ASP.Net ****************************************
 'Framework 1.1 *************************************************
  Button1.Attributes.Add("onclick", "this.value='Please wait...';this.disabled = true;" + GetPostBackEventReference(Button1))
 'Framework 2.0 *************************************************
  Button1.Attributes.Add("onclick", "this.value='Please wait...';this.disabled = true;" + ClientScript.GetPostBackEventReference(Button1, ""))


Open Dataset...
Dim objConn As New SqlClient.SqlConnection
Dim objDs As New DataSet
Dim objCommand As New SqlCommand()
Dim objDa As New SqlDataAdapter
Dim objCommandBuilder As New SqlCommandBuilder()
objConn.ConnectionString = "Server=(local);Database=NorthWind;Trusted_Connection=True;"
objCommand.CommandText = "Select * From Employees"
objCommand.Connection = objConn
objDa.SelectCommand = objCommand
objDa.Fill(objDs, "Employees")
objCommandBuilder = New SqlCommandBuilder(objDa)
objConn.close

Update NonQuery...
Dim objConnection As New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("CP.mdb"))
Dim objcommand As New OleDbCommand()
Dim QStr As String

QStr = "UPDATE Candidate SET "
QStr = QStr & "Candidate.FName = '" & txtFirstName.Text & "'" & ","
QStr = QStr & "Candidate.Address1 = '" & txtAddress1.Text & "'" & 
QStr = QStr & " WHERE (((Candidate.ssntypelev)='" & Trim(txtId.Text) & Trim(txtExamType.Text) & Trim(txtExamLev.Text) & "'));"
objcommand = New OleDbCommand(QStr, objConnection)
objConnection.Open()
objcommand.ExecuteNonQuery()
objConnection.Close()


Delete NonQuery...
Dim objConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("SMTSurvey.MDB") & ";")
Dim objcommand As New OleDbCommand()
objcommand = New OleDbCommand("DELETE Demographic.* FROM Demographic Where (((Demographic.RecordId)='" & RecId & "'));", objConn)
objConn.Open()
objcommand.ExecuteNonQuery()
objConn.Close()


AppendNonQuery...
Dim objConn As New OleDbConnection()
Dim objCommand As New OleDbCommand()
objConn = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("CP.mdb"))
Dim v1 As String = "'" & txtSsn.Text & "'"
Dim v2 As String = "'" & txtCourse.Text & "'"
'WebForm Fields....
Dim strValues As String = v1 & "," & v2
'Database Fields...
Dim strFields As String = "ssn,name_of_course"
objCommand = New OleDbCommand("INSERT INTO Continue_Ed (" & strFields & ") VALUES (" & strValues & ")", objConn)
objConn.Open()
objCommand.ExecuteNonQuery()
objConn.Close()