对象refresh的方法Iadodc失败

下面是代码，谢谢~
Private Sub Form_Load()
Dim sql1 As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\information.mdb;Persist Security Info=False"
sql1 = "select * form 年份 "
Adodc1.RecordSource = sql1
Adodc1.Refresh
For i = 0 To Adodc1.Recordset.Fields.Count - 1
year1.AddItem Adodc1.Recordset.Fields(i).Name
Next i
year1.Text = year1.List(0)
End Sub

补充：VB ,  基础类