不怎麼玩資料庫的說
你可以試試
在 Data1.Recordset.AddNew 前加一句
Data1.EOFAction = adDoAddNew
因為一開始你的資料庫是空的
所以與 EOF之處理 有關
P.S.
AdDoMoveLast 0 移動到最後一條記錄
AdStayEOF 1 保持在文件的結尾位置
AdDoAddNew 2 添加一條新記錄
不過如此就要多個錯誤處理
"如果您沒有輸入新資料錄的資料，而將移出資料錄，您會收到錯誤訊息"
http://support.microsoft.com/kb/190642/zh-tw