问题描述

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

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