Delete empty rows in DataRecordset, External DATA, or load exactly data rows from an external data sources - VBA

Hello!
I have few problem with DataRecordset properties when I load external Data to visio. The uploading done well, and I have the datas. The problem is that the UBound(lngRowIDs) count all rows in the DataRecordset (external Data Windows), data rows and empty rows, what bothers my program.
I need either :
     - to load exactly the data array from the external source (Excel or Access for example)
     - delete the empty rows from DataRecordse
     - or count rows which contain data from DataRecordse

Thank!