Dim tos As New TransactionOptions()
tos.IsolationLevel = iLevel
tos.Timeout = New TimeSpan(0, 0, 90)
Using(Scope As TransactionScope= New TransactionScope(TransactionScopeOption.Required, IsolationLevel.ReadCommitted))
{
‘‘‘‘‘可以写SQL操作了但是多个操作必须，要用同一个SqlConnection进行关联
Scope .Complete()
}