看了一下前面有对此问题的讨论，不知道大家有真正的实现吗？如果哪位试验成功了请发给小弟研究一下。邮件：tenghaishi@sina.com
下面是一个代码：
数据库肯定是连接上了 ，单行可以显示。但是怎么listview一点动静没有啊，虽然我没做循环，不过感觉应该是得显示一行数据啊 ？请大家指点一下，时间紧任务重啊。

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)

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"

On Error Resume Next
Dim NoOfRecords
Set NoOfRecords = HMIRuntime.Tags("NoOfRecords")
Dim CurrentRec
Set CurrentRec = HMIRuntime.Tags("CurrentRec")
Dim AuthorID
Set AuthorID = HMIRuntime.Tags("Au_ID")
Dim AuthorFirstName
Set AuthorFirstName = HMIRuntime.Tags("AuthorFirstName")
Dim AuthorLastName
Set AuthorLastName = HMIRuntime.Tags("AuthorLastName")
Dim AuthorsQueryRan
Set AuthorsQueryRan = HMIRuntime.Tags("AuthorsQueryRan")


If gocn.State = 0 Then
HMIRuntime.Trace "no connection ... reconnecting"
ConnectDB()
End If

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


'listview test

Dim m,n ,s
m=gorsAuthors.Fields.Count
ListView1.listItem.Clear
ListView1.ColumnHeaders.Add,,CStr(gorsAuthors.Fields(0)),140
ListView1.ColumnHeaders.Add,,CStr(gorsAuthors.Fields(1)),140
ListView1.ColumnHeaders.Add,,CStr(gorsAuthors.Fields(2)),140
ListView1.ColumnHeaders.Add,,CStr(gorsAuthors.Fields(3)),140
'listview test

If Not gorsAuthors.Eof Then
NoOfRecords.Write gorsAuthors.RecordCount
gorsAuthors.MoveFirst
AuthorID.Write gorsAuthors.Fields(0).Value
AuthorFirstName.Write gorsAuthors.Fields(1).Value
AuthorLastName.Write gorsAuthors.Fields(2).Value
CurrentRec.Write 1
AuthorsQueryRan.Write 1




'listview test code
Set oItem=ListView1.ListItem.Add()
oItem.Text=CStr((gorsAuthors.Fields(2).Value))
oItem.SubItems(1)=CStr((gorsAuthors.Fields(0).Value))
oItem.SubItems(2)=CStr((gorsAuthors.Fields(1).Value))
oItem.SubItems(3)=CStr((gorsAuthors.Fields(3).Value))


Else
MsgBox "No Data Returned", vbOK, "Query Results"
End If
On Error Goto 0
End Sub