ACCESS表中的数据怎样在TDBGrid上的显示

[aeae12]

我用ACDOC连接的ACCESS数据库，代码如下：
Private Sub Command3_Click()
Cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\新建文件夹 (2)\Interface.mdb;Persist Security Info=False"
Dim Rs As New ADODB.Recordset
Str1 = "SELECT * FROM CompareBase INNER JOIN Zd_Xm5 ON CompareBase.Xm_name = Zd_Xm5.Xm_name"
Rs.Open Str1, Cn, adOpenKeyset, adLockOptimistic
Set Adodc3.Recordset = Rs
Adodc3.Refresh
End Sub

Private Sub TDBGrid3_OnInit()

Set TDBGrid1.DataSource = Adodc3

TDBGrid1.MarqueeStyle = dbgHighlightRow
TDBGrid1.Columns(0).DataField = "Xm_Code"
TDBGrid1.Columns(0).Alignment = dbgCenter

TDBGrid1.Columns(1).DataField = "Xm_Name"
TDBGrid1.Columns(1).Alignment = dbgCenter

TDBGrid1.ScrollTrack = True
TDBGrid1.ReBind
End Sub

同样的代码连接SQL能显示出来，但连接ACCESS确不能显示，请哪位大哥指点一下，不胜感激