Vb listview不显示子项

Vb listview只显示Items而不显示其子项Subitems

Try

        disp(s, ds3)
        ListView1.Items.Clear()
        tb = ds3.Tables(0)
        Dim i As Integer, j As Integer
        For i = 0 To tb.Rows.Count() - 1
            ListView1.Items.Add(tb.Rows(i).Item(0))
            For j = 1 To tb.Columns.Count - 1
                ListView1.Items(i).SubItems.Add(tb.Rows(i).Item(j))
            Next                                    'listview的结构:CID,CName,CCredit,TName,TID;其中后两项置空，在后续函数中进行填充
            ListView1.Items(i).SubItems.Add("")     ' 加上教师姓名
            ListView1.Items(i).SubItems.Add("")     ' 加上教号
        Next
    Catch
        MsgBox(Err.Description, vbYes, "出错了!")
        Exit Sub
    End Try