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()

}