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