Sub ReadTable(csRecordset As Recordset)
          Dim sData$, i%
          
  Call csRecordset.MoveFirst
  
  Do While Not csRecordset.EOF
    For i = 0 To csRecordset.Fields.Count - 1
      sData = sData & csRecordset.Fields(i) & Chr$(9) & vbCrLf
    Next
    
    Call csRecordset.MoveNext
  Loop
  
  txtTable = sData
End Sub