对象 'refresh' 的方法 'IAdodc' 失败

Private Sub Form_Load()
    Set rs = New ADODB.Recordset
    rs.Open "select * from student", cnn, adOpenStatic, adLockOptimistic
    Adodc1.ConnectionString = cnn.ConnectionString
    Adodc1.RecordSource = "select * from student "
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub

菜鸟求帮忙解决。。。