问题出在哪里？

Question

大虾，我现在在自学VB，我现在想让datagrid通过代码与数据库相连，但报错。这段代码我发给我的一个网友，运行正常。代码如下(报错为行集合不能作为标签，光标停在倒数第二行，数据库为VB自带的)
Dim cn As Connection
Dim rt As Recordset
Set cn = New Connection
Set rt = New Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB"
cn.Open
Set rt = cn.Execute("select * from authors")
Set DataGrid1.DataSource = rt
    DataGrid1.Refresh

Answer 1

if cn.state<>adstateopen then msgbox err.description

Answer 2

指定DataGrid1的DataSource属性前，我的经验是进行一些初始话设置

Answer 3

rt.CursorLocation = adUseClientrt.open "select * from authors", CN, adOpenDynamic, adLockBatchOptimisticset datagrid1.datasource=rt