Dim sr As New ADODB.Recordset
  Dim j As Integer
  If connstr() Then
    Set sr = selectSql(st)
    With msglists
           .Rows = 1
       Do While Not sr.EOF
         Rows = Rows + 1
            For j = 0 To sr.Fields.Count - 1
              If Not isnull(Trim(sr.Fields(j).Value)) Then
                .TextMatrix(Rows - 1, j) = sr.Fields(j)
              Else
                .TextMatrix(Rows - 1, j) = ""
              End If
            Next j
        Loop
      End With
    End If

解决了，谢谢啊~
自己在别的地方出错了啊