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