vb中sql和datagrid 问题 在线等

Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.ConnectionString = "Driver={SQL Server};database=Network;uid=sa;pwd=sa;server=6E880A947E1A42C"
cn.Open
rs.Open ("select 姓名,住院号,入院时间,病房,入院科室,出院时间,开通状态 from 住院表 "), cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
end sub
这是SQL数据库连接代码，在运行的时候，datagrid可以显示行数，但无法显示数据，也就是说，表里有几个病人，就显示多少行，但每行都是空值。

是哪里设置出现问题了吗？还是代码出现了问题？为什么无法显示数据？

帮你改了，看可以吗？
1.删除Set cn = New ADODB.Connection因为Dim cn As New ADODB.Connection已经建立了Connection物件。
2.在Set DataGrid1.DataSource = rs之后加上DataGrid1.Refresh刷新资料。

Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.ConnectionString = "Driver={SQL Server};database=Network;uid=sa;pwd=sa;server=6E880A947E1A42C"
cn.Open
rs.Open ("select 姓名,住院号,入院时间,病房,入院科室,出院时间,开通状态 from 住院表 "), cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
end sub

建立一个adodc的控件设置成datagrid控件 set adodc1.recordset=rs adodc1.refresh datagrid1.refresh

你改成这样的试试 Private Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.ConnectionString = "Driver={SQL Server};database=Network;uid=sa;pwd=sa;server=6E880A947E1A42C" cn.Open rs.Open ("select 姓名,住院号,入院时间,病房,入院科室,出院时间,开通状态 from 住院表 "), cn, 1, 1 Set DataGrid1.DataSource = rs end sub