Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=c:\temp\temp.mdb"
rs.Open "select * from 成绩 where score between 60 and 75", cnn, adOpenDynamic, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
End Sub