Public Sub RetrieveTData(ByVal cID As String, ByVal cnn As SqlConnection) As Boolean Dim sqlTran As SqlTransaction cnn.Open() sqlTran = cnn.BeginTransaction Try If Not DataAlreadyTransferred(cID) Then Dim Command As New SqlCommand("usp_BigNasty_CopyDataFromDB1toDB2") Command.CommandType = CommandType.StoredProcedure Command.Transaction = sqlTran Command.Parameters.AddWithValue("@cID", cID) Command.Connection = cnn Command.ExecuteNonQuery() sqlTran.Commit() Endif Catch ex As Exception sqlTran.Rollback() Throw Finally cnn.Close() End Try End Sub