รบกวนช่วยด้วยกำลังทำโปรเจกจบระบบลงทะเบียนเรียนค่ะ ตอนนี้ติดอยู่ที่หน้าลงทะเบียนเรียนจะต้องเขียนยังไง

Protected Function ExecuteStore3(ByVal strStoreName As String, ByVal dtDetail As DataTable) As [Boolean] 
    Dim tran_1 As SqlTransaction 
    Dim booResult As Boolean = False 
    Me.OpenConnection() 
    tran_1 = Me._SQLCon.BeginTransaction(IsolationLevel.ReadCommitted) 
    
    Try 
        For Each rowDetail As DataRow In dtDetail.Rows 
            Dim commandLN As New SqlCommand() 
            commandLN.Connection = Me._SQLCon 
            commandLN.Transaction = tran_1 
            commandLN.CommandType = CommandType.StoredProcedure 
            commandLN.CommandText = strStoreName 
            For a As Integer = 0 To dtDetail.Columns.Count - 1 
                If (dtDetail.Columns(a).ToString() <> "FlagInsertTemp") AndAlso (dtDetail.Columns(a).ToString() <> "FlagSubmitTemp") AndAlso (dtDetail.Columns(a).ToString() <> "FlagSuggestTemp") Then 
                    commandLN.Parameters.AddWithValue("@" & dtDetail.Columns(a).ToString(), rowDetail(a).ToString()) 
                End If 
            Next 
            commandLN.ExecuteNonQuery() 
        Next 
        
        tran_1.Commit() 
        If _Ex IsNot Nothing Then 
            booResult = False 
        Else 
            booResult = True 
        End If 
        Return booResult 
    Catch ex As Exception 
        tran_1.Rollback() 
        Throw (ex) 
    Finally 
        Me.CloseConnection() 
    End Try 
End Function