請教listbox 與 dbgrid 的問題~~~急~~~(編號：1552)

我想要知道當我選擇listbox 其中一項時， dbgrid 就會跟著顯示出那一項的內容。
我的程式碼是這樣子的
If List1.ListIndex = 0 Then
Data1.DatabaseName = "E:\My Documents\資料庫\一劃.mdb"
Data1.RecordSource = "一劃"
Data1.Refresh
end if
可是dbgrid　都沒有顯示執行結果，所以請大家幫我看看哪裡出了錯
謝謝~~~~