Dim myConnection As New SqlConnection("Data Source=localhost;Initial Catalog=Northwind;uid=sa;pwd=sa;")
myConnection.Open()
Dim myTrans=myConnection.BeginTransaction()
Dim myCommand As New SqlCommand()
myCommand.Connection = myConnection
myCommand.Transaction = myTrans
Try
myCommand.CommandText = "Insert into Region (RegionID, RegionDescription) VALUES (100, 'Description')"
myCommand.ExecuteNonQuery()
myCommand.CommandText = "delete * from Region where RegionID=101"
myCommand.ExecuteNonQuery()
myTrans.Commit()
Response.Write("Both records are written to database.")
Catch ep As Exception
myTrans.Rollback()
Response.Write(ep.ToString())
Response.Write("Neither record was written to database.")
Finally
myConnection.Close()
End Try
End Sub