If CurrentTable.Rows(i)(CurrentTable.Cols(j).Name) = s1 Then
改成
If cstr(CurrentTable.Rows(i)(CurrentTable.Cols(j).Name)) = s1 Then