求助数据库。。。。

Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Set MSHFlexGrid1.DataSource = Adodc1
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\xx.mdb;Persist Security Info=False"
conn.Open
sql = "select * from sspu"
rs.Open sql, conn, 1, 1
End Sub
为什么MSHFlexGrid1表中没数据？