vb 中MsgBox多行记录

 Dim cInvo_No As String
         Dim cSql As String
         Dim cRec As rdoResultset
         Dim s As String
        cInvo_No = Trim(FlexGrid.TextMatrix(FlexGrid.Row, 1))
        cSql = " select A.cPact_No 合同号,A.cDate 交款日期,I.iAmount 交款金额 " _
          & " from dbo.tbl_Invo_Net I INNER JOIN tbl_Account_Net A ON I.cNo = A.cReg_No " _
          & "where I.cInvo_No = '" & cInvo_No & "' order by A.cDate"
        Set cRec = gDataChe.OpenResultset(cSql, rdOpenKeyset)
        If cRec.RowCount <> 0 Then
           While Not cRec.EOF
               s = s & "合同号:" & cRec(0) & " 交款日期:" & cRec(1) & " 金额:" & cRec(2) & "" & vbCrLf
           cRec.MoveNext
           Wend
               MsgBox s
           Else
               MsgBox "无交款记录"
        End If