void DeleteRecord(object sender, GridRecordEventArgs e)
{
    OleDbConnection myConn = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
    + Server.MapPath("Northwind.mdb"));
    myConn.Open();                      

    OleDbCommand myComm = new OleDbCommand("DELETE FROM Orders WHERE OrderID = @OrderID",
    myConn);

    myComm.Parameters.Add("@OrderID", OleDbType.Integer).Value = e.Record["OrderID"];

    myComm.ExecuteNonQuery();
    myConn.Close();
}

void UpdateRecord(object sender, GridRecordEventArgs e)
{
    OleDbConnection myConn = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" 
    + Server.MapPath("Northwind.mdb"));
    myConn.Open();        

    OleDbCommand myComm = new OleDbCommand("UPDATE Orders SET ShipName = @ShipName, 
    ShipCity = @ShipCity, ShipCountry = @ShipCountry, Deleted = @Deleted WHERE 
    OrderID = @OrderID", myConn);

    myComm.Parameters.Add("@ShipName", OleDbType.VarChar).Value = e.Record["ShipName"];
    myComm.Parameters.Add("@ShipCity", OleDbType.VarChar).Value = e.Record["ShipCity"];
    myComm.Parameters.Add("@ShipCountry", OleDbType.VarChar).Value = e.Record["ShipCountry"];
    myComm.Parameters.Add("@Deleted", OleDbType.Boolean).Value = e.Record["Deleted"];
    myComm.Parameters.Add("@OrderID", OleDbType.Integer).Value = e.Record["OrderID"];

    myComm.ExecuteNonQuery();
    myConn.Close();     
}

void InsertRecord(object sender, GridRecordEventArgs e)
{
    OleDbConnection myConn = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" 
    + Server.MapPath("Northwind.mdb"));
    myConn.Open();

    OleDbCommand myComm = new OleDbCommand("INSERT INTO Orders (ShipName, ShipCity, 
    ShipCountry, Deleted) VALUES(@ShipName, @ShipCity, @ShipCountry, @Deleted)", myConn);

    myComm.Parameters.Add("@ShipName", OleDbType.VarChar).Value = e.Record["ShipName"];
    myComm.Parameters.Add("@ShipCity", OleDbType.VarChar).Value = e.Record["ShipCity"];
    myComm.Parameters.Add("@ShipCountry", OleDbType.VarChar).Value = e.Record["ShipCountry"];
    myComm.Parameters.Add("@Deleted", OleDbType.Boolean).Value = e.Record["Deleted"];        

    myComm.ExecuteNonQuery();
    myConn.Close();
}

void RebindGrid(object sender, EventArgs e)
{
        // re-create the grid from the updated database
}

Sub DeleteRecord(sender As Object, e As GridRecordEventArgs)
    Dim myConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;
    Data Source=" & Server.MapPath("Northwind.mdb"))
	myConn.Open()

	Dim myComm As New OleDbCommand("DELETE FROM Orders WHERE OrderID = @OrderID", myConn)

	myComm.Parameters.Add("@OrderID", OleDbType.[Integer]).Value = e.Record("OrderID")

	myComm.ExecuteNonQuery()
	myConn.Close()
End Sub

Sub UpdateRecord(ByVal sender As Object, ByVal e As GridRecordEventArgs)
        Dim myConn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" 
        + Server.MapPath("../App_Data/Northwind.mdb"))
        myConn.Open()
        
        Dim myComm As OleDbCommand = New OleDbCommand("UPDATE Orders SET ShipName = @ShipName, 
        ShipCity = @ShipCity, ShipCountry = @ShipCountry,  Deleted=@Deleted WHERE OrderID = @OrderID", myConn)

        myComm.Parameters.Add("@ShipName", OleDbType.VarChar).Value = e.Record("ShipName")
        myComm.Parameters.Add("@ShipCity", OleDbType.VarChar).Value = e.Record("ShipCity")
        myComm.Parameters.Add("@ShipCountry", OleDbType.VarChar).Value = e.Record("ShipCountry")
        myComm.Parameters.Add("@Deleted", OleDbType.Bool).Value = e.Record("Deleted")
        myComm.Parameters.Add("@OrderID", OleDbType.Integer).Value = e.Record("OrderID")
        
        myComm.ExecuteNonQuery()
        myConn.Close()
End Sub

Sub InsertRecord(ByVal sender As Object, ByVal e As GridRecordEventArgs)
        Dim myConn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" 
        + Server.MapPath("../App_Data/Northwind.mdb"))
		myConn.Open()
		
        Dim myComm As OleDbCommand = New OleDbCommand("INSERT INTO Orders (ShipName, ShipCity, 
        ShipCountry, Deleted) VALUES(@ShipName, @ShipCity, @ShipCountry, @Deleted)", myConn)
		
        myComm.Parameters.Add("@ShipName", OleDbType.VarChar).Value = e.Record("ShipName")
        myComm.Parameters.Add("@ShipCity", OleDbType.VarChar).Value = e.Record("ShipCity")
        myComm.Parameters.Add("@ShipCountry", OleDbType.VarChar).Value = e.Record("ShipCountry")
        myComm.Parameters.Add("@Deleted", OleDbType.Bool).Value = e.Record("Deleted")
        myComm.ExecuteNonQuery()
        myConn.Close()
End Sub

Sub RebindGrid(ByVal sender As Object, ByVal e As EventArgs)
        ' re-create the grid from the updated database
End Sub