简单的数据库连接问题，请帮帮忙，谢谢
'声名
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

'代码
’连接数据库
Dim str

str = App.Path

If Right(str, 1) <> "\ " Then

str = str + "\ "

End If

str = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= " & str & "\dsystem.mdb "

conn.Open str

rs.CursorLocation = adUseClient

rs.Open "xt ", conn, adOpenKeyset, adLockPessimistic
rs.Close
'显示全部内容
Dim rs1 As New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.Open "select * from xt ", conn, adOpenKeyset, adLockReadOnly

Set DataGrid1.DataSource = rs1
DataGrid1.Refresh


这段程序是我在网上找的一个简单数据库连接程序的部分内容，在他的程序里能正常使用，到我这里，就出错，错误在“显示全部内容里”的“Set DataGrid1.DataSource = rs1”这一句上，
错误提示：“实时错误91 对象变量或with块变量未设置”，点了结束后又提示“运行时错误440，应用程序定义或对象定义错误”
有哪位能给解释下原因啊？
刚刚学用这种方式连接数据库，原来都是直接用VB加ACCESS加DATA进行数据管理


[解决办法]
这样试试：
1，　 OLEDB.3.51改成OLEDB.4.0
2， rs.Open "xt ", conn, adOpenKeyset, adLockPessimistic
改成 rs.Open "select * from xt ", conn, adOpenKeyset, adLockPessimistic