第一怎么说也有显示，下面这个怎么一点显示都没有，我把缺的指令也加上了还是不行。现在程序是这样的：
Dim gocn, gorsAuthors, gorsAuthorsChange, gorsTitles, gorsTitlesAuthors
Set gocn = CreateObject("ADODB.Connection")
Set gorsAuthors = CreateObject("ADODB.Recordset")
gocn.open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CC_tai3_07_06_13_10_31_54R;Data Source=.\WinCC"
gorsAuthors.open "SELECT * FROM panpi", gocn, 1, 3
Dim ListView1
Set ListView1=ScreenItems("ListView1")
ListView1.ListItems.clear
ListView1.ColumnHeaders.Add, ,"NO.",30
ListView1.ColumnHeaders.Add, , CStr(gorsAuthors.Fields(0).Name),70
ListView1.ColumnHeaders.Add, , CStr(gorsAuthors.Fields(1).Name),150
ListView1.ColumnHeaders.Add, , CStr(gorsAuthors.Fields(2).Name),150
Dim row
row = 0
Do While gorsAuthors.EOF = False
row = row + 1
If row < 10 Then
row = "0" & Trim(row)
End If
Set oItem=ListView1.ListItems.Add()
oItem.Text = Left( CStr(row),5)
oItem.SubItems(1) = CStr(gorsAuthors.Fields(0).Value)
oItem.SubItems(2) = CStr(gorsAuthors.Fields(1).Value)
oItem.SubItems(3) = CStr(gorsAuthors.Fields(2).Value)
gorsAuthors.MoveNext
Loop