VB6使用 ado+datagrid 打开access 没显示

Question

Dim conn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()
rs.CursorLocation = adUseClient
rs.Open "select * from topcollege", conn, adOpenKeyset, adLockOptimistic
DataGrid1.ClearFields
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
rs.Close
End Sub
Private Sub Form_Load()
Dim connstr As String
connstr = "Provider = 'Microsoft.Jet.OLEDB.4.0';Data Source='c:\test.mdb'"
conn.Open connstrEnd Sub用以上代码的，点打开，只是闪了一下，数据很快就没了，怎么回事啊。