vb与access有关问题!好久没有用过access了~大家帮忙啊解决就给分!

vb与access问题!!!!!急!!!!好久没有用过access了~大家帮忙啊!!!解决就给分!!!!!
Dim   cnn   As   ADODB.Connection
Dim   rs   As   ADODB.Recordset


Private   Sub   Form_Load()

'连接Access数据库
        Set   cnn   =   New   ADODB.Connection
                cnn.Provider   =   "Microsoft.Jet.OLEDB.4.0 "
        Dim   cnnFile   As   String
                cnnFile   =   "Data   Source=C:\Documents   and   Settings\415\桌面\1.mdb;Persist   Security   Info=False;Jet   OLEDB:Database   Password=1234 "
        cnn.Open   cnnFile
        Set   rs   =   New   ADODB.Recordset
        rs.Open   "select   *   from   罗马号码表   ",   cnn,   adOpenStatic,   adLockOptimistic
Set   DataGrid1.DataSource   =   rs
End   Sub
为什么我的datagrid没有反映列?


------解决方案--------------------
rs.Open "select * from 罗马号码表 ", cnn, 1，1