datagrid控件不显示数据

Question

DATAGRID控件不显示数据，也不报错。请各位帮我看看，错在那里，为什么错。谢谢各位了。
Public  Ghmconn  As  New  ADODB.Connection  
Public  rs  As  New  ADODB.Recordset  
Public  con  As  String  
Public  sql  As  String  
Private  Sub  Form_Load()  
       con  =  "Provider=SQLOLEDB.1;Password=lanneret;Persist  Security  Info=True;User  ID=sa;Initial  Catalog=GHM_TEST;Data  Source=_郭虹铭"  
       sql  =  "select  nodename  from  tree"  
       
       Ghmconn.ConnectionString  =  con  
       Ghmconn.Open  
         
       rs.Open  sql,  Ghmconn,  adOpenStatic  
       Set  DataGrid1.DataSource  =  rs  
            DataGrid1.Columns(0).Caption  =  "nodename"  
            DataGrid1.Columns(0).DataField  =  "nodename"  
End  Sub  

Answer 1

Ghmconn.CursorLocation =adUseClient
Ghmconn.ConnectionString  =  con  
       Ghmconn.Open

Answer 2

如果想动态添加，就这样，
DataGrid1.ClearFields
Dim col As MSDataGridLib.ColumnSet col = DataGrid1.Columns.Add(0)
col.Caption = "nodename"
col.DataField = "nodename"要么就在设计的时候确定所有的列。然后再帮定
Set  DataGrid1.DataSource  =  rs    
--------------------------------------------------------------
程序，犹如人生。

Answer 3

rs.Open  sql,  Ghmconn,  adOpenStatic  
後面加上
MsgBox rs.RecordCount
先檢查一下你的查詢結果是否正確

Answer 4

不就是显示数据吗
你试试吧，好用的
记得要引用ado  
你只需要在工程/引用 miscrosoft Activex data objects 2.x library 就可以了
Dim Db As Connection
Dim WithEvents adoPrimaryRS As Recordset '数据库连接对象
Private Sub Command1_Click()
      strsql="select 字段 as 姓名 from 表 where 你的条件"  
   '姓名就是你的col.Caption = "nodename"   Set Db = New Connection
   Db.CursorLocation = adUseClient
   '下面的连接数据字符串你要修改一下
   Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
   Set adoPrimaryRS = New Recordset
   adoPrimaryRS.Open strsql, Db, adOpenStatic, adLockOptimistic
   Set DataGrid1.DataSource = adoPrimaryRS
end sub