怎么不对？

把 if Not Adodc1.Recordset.EOF改成
while Not Adodc1.Recordset.EOF，具体代码：
Public Sub showdata()
Dim i As Integer
Adodc1.RecordSource = "select * from P2"
Adodc1.Refresh
While Not Adodc1.Recordset.EOF
Adodc1.Recordset.MoveFirst
MSF.TextMatrix(1, 0) = Adodc1.Recordset.Fields(0)
MSF.TextMatrix(1, 1) = Adodc1.Recordset.Fields(1)
MSF.TextMatrix(1, 2) = Adodc1.Recordset.Fields(2)
MSF.TextMatrix(1, 3) = Adodc1.Recordset.Fields(3)
MSF.TextMatrix(1, 4) = Adodc1.Recordset.Fields(4)
MSF.TextMatrix(1, 5) = Adodc1.Recordset.Fields(5)
Adodc1.Recordset.MoveNext
For i = 2 To Adodc1.Recordset.RecordCount
With Adodc1.Recordset
MSF.AddItem .Fields(0) & vbTab & .Fields(1)
.MoveNext
End With
Next i
Wend
Adodc1.Recordset.Close
End Sub

Public