DataGrid数据绑定问题

[wangzhouyu]

Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Dim us As New UserService
Dim db As New DbConntion
Set rs = db.GetAllUser
MsgBox rs.RecordCount
Set DataGrid1.DataSource = rs
End Sub

UserService是我做的类模块GetAllUser查询access数据库得到RecordSet,MsgBox rs.RecordCount显示有3条记录,但是绑定到dataGrid上去一条记录也没有,但是我不用类模块,把查询的方法直接写到Form_Load中datagrid却显示记录了,这是怎么回事呀.

[Dunzip]

Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Dim us As New UserService
Set rs = us.GetAllUser
MsgBox rs.RecordCount
Set DataGrid1.DataSource = rs
End Sub

[lsftest]

把你的rs改为全局的。。。

[wangzhouyu]

改成全局的也不行呀