Fix for successful export of emtpy Tables

[Xarno]

If there are no records then MoveFirst throw an exception.

@@ -704,12 +704,14 @@ Private Sub ExportTable(tbl_name As String, obj_path As String)
         If C <> 0 Then OutFile.write vbTab
         C = C + 1
         OutFile.write fieldObj.Name
     Next
     OutFile.write vbCrLf
-
-    rs.MoveFirst
+   
+    If rs.RecordCount > 0 Then
+        rs.MoveFirst
+    End If
     Do Until rs.EOF
         C = 0
         For Each fieldObj In rs.fields
             If C <> 0 Then OutFile.write vbTab
             C = C + 1