主题：下列代码能优化吗?

弄了个数据统计程序,请老师们看一下能否优化?谢谢!
Dim s As Date = Date.Now()
Dim t As New DataTableBuilder("temp") '创建临时表
t.AddDef("字符", GetType(String), 32)
t.TableVisible = false
t.Build()
DataTables("统计").DataRows.Clear()
for Each dc as Datacol in DataTables("自由统计数据二").Datacols
    if dc.name <> "数据1" Then
        if dc.name <> "数据2" Then
            if dc.name <> "数据3" Then
                if dc.name <> "数据4" Then
                    if dc.name <> "数据5" Then
                        if dc.name <> "数据6" Then
                           
                            if dc.name <> "数据7" Then
                                if dc.name <> "数据8" Then
                                    if dc.name <> "数据9" Then
                                        if dc.name <> "数据10" Then
                                            dim f As New Filler
                                            f.SourceTable = DataTables("自由统计数据二") '指定数据来源
                                            f.SourceCols = dc.name '指定数据来源列
                                            f.DataTable = DataTables("temp") '指定数据接收表
                                            f.DataCols = "字符" '指定数据接收列
                                            f.Distinct = false
                                            f.Fill() '填充数据
                                        end if
                                    end if
                                end if
                            end if
                        end if
                    end if
                end if
            end if
        end if
    end if
Next
DataTables("temp").DeleteFor("[字符] Is Null") '删除临时表空行
dim f1 As New Filler
f1.SourceTable = DataTables("temp") '指定数据来源
f1.DataTable = DataTables("统计") '指定数据接收表
f1.ExcludeNullValue = true
f1.Fill() '填充数据
For Each dr As DataRow In DataTables("统计").DataRows
    dr("出现次数") = DataTables("自由统计数据二").Compute("sum(数据1)", "姓名1 = '" & dr("字符") & "'")+DataTables("自由统计数据二").Compute("sum(数据2)", "姓名2 = '" & dr("字符") & "'")+DataTables("自由统计数据二").Compute("sum(数据3)", "姓名3 = '" & dr("字符") & "'")+DataTables("自由统计数据二").Compute("sum(数据4)", "姓名4 = '" & dr("字符") & "'")+DataTables("自由统计数据二").Compute("sum(数据5)", "姓名5 = '" & dr("字符") & "'")+DataTables("自由统计数据二").Compute("sum(数据6)", "姓名6 = '" & dr("字符") & "'")+DataTables("自由统计数据二").Compute("sum(数据7)", "姓名7 = '" & dr("字符") & "'")+DataTables("自由统计数据二").Compute("sum(数据8)", "姓名8 = '" & dr("字符") & "'")+DataTables("自由统计数据二").Compute("sum(数据9)", "姓名9 = '" & dr("字符") & "'")+DataTables("自由统计数据二").Compute("sum(数据10)", "姓名10 = '" & dr("字符") & "'")
   
   
Next

Messagebox.Show("处理完毕! 耗时: " & (Date.Now -s).TotalSeconds)