高手给看一下吧!老是显示不全!

请看代码:Dim da_pj As Database
Dim tabtmp As QueryDef
Dim recordtmp As Recordset
Set da_pj = OpenDatabase("c:\student.mdb", False, False)
Set tabtmp = da_pj.CreateQueryDef("")
tabtmp.SQL = "select * from info"
Set recordtmp = tabtmp.OpenRecordset()
MSFlexGrid1.Rows = recordtmp.RecordCount + 1
MSFlexGrid1.Cols = recordtmp.Fields.Count + 1
recordtmp.MoveFirst
For i = 0 To recordtmp.RecordCount
MSFlexGrid1.TextMatrix(i, 0) = Trim(recordtmp!id)
MSFlexGrid1.TextMatrix(i, 1) = Trim(recordtmp!age)
MSFlexGrid1.TextMatrix(i, 2) = Trim(recordtmp!Name)
MSFlexGrid1.TextMatrix(i, 3) = Trim(recordtmp!address)
recordtmp.MoveNext
Next i四条记录只能显示两个,现在还没找到原因(凌晨2:00!),太衰了!
高手给看一下吧