远程连接SQL数据库显示不出来结果着急啊！那位高手帮帮忙！

Question

Dim   rs   As   New   Recordset 
Dim   conn   As   New   ADODB.Connection 
Private   Sub   Form_Load() 
conn.Open   "Provider=SQLOLEDB.1;Integrated   Security=SSPI;Persist   Security   Info=False;Initial   Catalog=local;Data   Source=192.168.0.240 " 
End   Sub 
Private   Sub   Command1_Click() 
rs.Open   "SELECT   *   FROM   hst_adeieng ",   conn,   1,   3 
set listview.datasouse=rs   最后这句还是在论坛的朋友给的但是还是显示不出来！怎么办！好像我的控件和数据库没关系！怎么叫我的控件和SQL数据库产生关系显示出来查询的结果 控件是 listview烦啊！上次的ACCESS数据库访问的源码叫我妹妹给删除了这次写个SQL连接的但是怎么也显示不出来查询的结果！

Answer 1

conn.Open "Driver={SQL Server};Server=IP地址,如果数据库在本机可以写local;Database=数据库名;Uid=登录ID;Pwd=登录密码" 1点~ -_-!!!

Answer 2

 
set listview.datasouse=rs 
listview 支持这样的绑定吗？ 
难道我孤陋寡闻？？？
我一直是用 下面的代码  
调用的时候是 Explistv listview1，r,tureSub Explistv(ll As ListView, rr As ADODB.Recordset, bt As Boolean)
'将ADO记录集直接输出到LISTVIEW
Dim r As New ADODB.Recordset
Dim i As Integer
Dim itmx As ListItem
Set r = rr
ll.ListItems.Clear'添加标题
If bt = True Then
ll.ColumnHeaders.Clear
For i = 0 To r.Fields.Count - 1
    ll.ColumnHeaders.Add , , Trim(r.Fields(i).Name)
Next
End If
'添加内容
Do While Not r.EOF
    Set itmx = ll.ListItems.Add(, , Trim(r.Fields(0).Value))
    For i = 1 To r.Fields.Count - 1
      '字符型
      If r.Fields(i).Type = adChar Or adLongVarChar Or adVarChar Then
        itmx.SubItems(i) = IIf(IsNull(r.Fields(i).Value), " ", r.Fields(i).Value)
      End If
      '数字型
      If r.Fields(i).Type = adDouble Or adNumeric Then
        itmx.SubItems(i) = IIf(IsNull(r.Fields(i).Value), 0, r.Fields(i).Value)
      End If
      '日期型
      If r.Fields(i).Type = adDate Then
        itmx.SubItems(i) = Format(r.Fields(i).Value, "yyyy-MM-dd")
      End If
    Next
r.MoveNext
Loop
'r.Close
End Sub

Answer 3

仅供参考rs.CursorLocation = adUseClient    
rs.Open  "SELECT  *  FROM  hst_adeieng ",  conn,  1,  3