请问“.Rows=.Rows+1”为什么放在“do while.......loop”外面啊。Private Sub ShowData()
    Dim j As Integer
    Dim i As Integer
    Dim MsgText As String
    
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    With msgList
        .Rows = 1
        
        .Rows = .Rows + 1
        Do While Not mrc.EOF
            For i = 1 To mrc.Fields.Count
                If Not IsNull(Trim(mrc.Fields(i - 1))) Then
                    Select Case mrc.Fields(i - 1).Type
                        Case adDBDate
                            .TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & "", "yyyy - mm - dd")
                
                    End Select
                
                End If
            
            Next i
            mrc.MoveNext
        Loop
        
    End WithEnd Sub