模糊搜索，为什么只显示一条信息，代码如下，请各位大侠帮帮忙吧

Dim texts As String
Dim mrc As ADODB.Recordset
Set mrc = New ADODB.Recordset
Set mrc = ExecuteSQL(txtsql1)

'If mrc.EOF = False Then

With MSF1
.Rows = 22
.Row = 1
mrc.MoveFirst
Do While Not mrc.EOF

 For i = 1 To 2
   .TextMatrix(.Row, i) = mrc.Fields(i)
 Next i
 .TextMatrix(.Row, 0) = mrc.Fields(0)
  .Row = .Row + 1

mrc.MoveNext
Loop

End With

'End If

Set mrc = Nothing
Exit Sub
s2:
MSF1.Refresh
End Sub