datagrid控件问题,急！！

Question

Private Sub Command1_Click()
Dim str As String
Dim conn As Connection
Dim rst As Recordset
Set conn = New Connection
Set rst = New Recordset
sdbname = App.Path + "\net1.mdb"
sPassword = ""
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & "Data Source=" & sdbname & ";" & "Jet OLEDB:Database Password=" & sPassword & ";"
str = "Select * from ask"
rst.Open str, conn, 3, 1
          Set DG1.DataSource = rst
DG1.Refresh
End Sub当点击按钮的时datagrid不显示任何数据库信息，这是为什么呢？请各位多多帮忙！

Answer 1

Rst.CursorLocation = adUseClient
rst.Open str, conn, 3, 1

Answer 2

Rst.CursorLocation = adUseClient
rst.Open str, conn, 3, 1