非常感谢斑竹和大家的无私帮助，小弟经过煎熬终于简单的实现了ListView控件多行显示数据库中内容，拿出来和大家共享一下。
1，添加 listview控件 并改为对象名为 ListView1
2, 添加一按钮，并在事件，鼠标左键下添加如下VBS

Dim gocn, gorsAuthors, gorsAuthorsChange, gorsTitles, gorsTitlesAuthors

Set gocn = CreateObject("ADODB.Connection")
Set gorsAuthors= CreateObject("ADODB.Recordset")
'CONNECT TO MSACCESS DB
'cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\WinCC V6 Workshop 0203\V6_demo3\Media\WinCCFac.mdb;Persist Security Info=False"

'CONNECT TO SQLSERVER, PUBS DB
gocn.open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs;Data Source=.\WinCC"

gorsAuthors.open "SELECT au_id, au_fname, au_lname, contract FROM Authors ORDER BY au_lname", gocn, 1, 3

Dim ListView1
Set ListView1=ScreenItems("ListView1")
ListView1.ListItems.clear
Do While gorsAuthors.EOF=False
ListView1.ListItems.Add,,"Oven: "&gorsAuthors.Fields("au_id")&"date: "&gorsAuthors.Fields("au_fname")&"date: "&gorsAuthors.Fields("au_lname")
gorsAuthors.MoveNext
Loop

3，设置ListView控件的属性，双击控件，修改General>>View属性值为Lvwlist
4,测试一下吧，虽然功能简单，不过成功后也很高兴哦 。
最好添加GCS Diagnostics 以便调试。