VB中ACCESS问题？

Question

如果将adox建立的ACCESS库表字段设为listview的列首。

Answer 1

Set con = New ADODB.Connection
 str = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "/log.mdb" & ";"
   con.Open str
   Set rs = New ADODB.Recordset
   rs.CursorLocation = adUseClient
   rs.LockType = adLockReadOnly
   rs.Open "gongying", con, 1, 3
   ' ListView1.ListItems.Add , , CStr(rs!id)
    'ListView1.ListItems.Item(ListView1.ListItems.Count).Tag = rs!id   If Not IsNull(rs!dz) Then
    ListView1.ListItems.Item(ListView1.ListItems.Count).SubItems(1) = CStr(rs!dz)
    End If用ID可以调入，去掉将不可调入，有更好的方法调入listview中吗？

Answer 2

问题1:如何将adox建立的ACCESS库表字段定为listview的列首字段。问题2:Set con = New ADODB.Connection
 str = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "/log.mdb" & ";"
   con.Open str
   Set rs = New ADODB.Recordset
   rs.CursorLocation = adUseClient
   rs.LockType = adLockReadOnly
   rs.Open "gongying", con, 1, 3
   ' ListView1.ListItems.Add , , CStr(rs!id)
    'ListView1.ListItems.Item(ListView1.ListItems.Count).Tag = rs!id   If Not IsNull(rs!dz) Then
    ListView1.ListItems.Item(ListView1.ListItems.Count).SubItems(1) = CStr(rs!dz)
    End If以上代码为数据库调入listview,但我觉得不够好,有没有更好方法.