一个数据库初始化的问题!!!!

[gatesxie]

Private Sub Form_Initialize()

Dim i As Integer
For i = 1 To Data1.Recordset.Fields.Count - 1
Combo1.AddItem Data1.Recordset.Fields(i).Name
Next
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\Offical_Doc.mdb"
Data1.RecordSource = "表一"
End Sub
为何这样行，而如下的代码且不行
Private Sub Form_Load()
Dim i As Integer
For i = 1 To Data1.Recordset.Fields.Count - 1
Combo1.AddItem Data1.Recordset.Fields(i).Name
Next
Data1.DatabaseName = App.Path & "\Offical_Doc.mdb"
Data1.RecordSource = "表一"
End Sub
而我把它改成这样也不行？！！
Private Sub Form_Load()
Dim i As Integer
For i = 1 To Data1.Recordset.Fields.Count - 1
Combo1.AddItem Data1.Recordset.Fields(i).Name
Next
Data1.DatabaseName = App.Path & "\Offical_Doc.mdb"
Data1.RecordSource = "表一"
End Sub