Dim dbeng 'As DAO.DBEngine
Dim db 'As Database
Dim rs 'As Recordset
Dim intField 'As Integer
Dim strData 'As String
Const dbOpenDynaset = 2 'DAO.RecordsetTypeEnum
Const dbReadOnly = 4 'DAO.RecordsetOptionEnum
Const dbOpenSnapshot = 4 'DAO.RecordsetTypeEnum
Const dbOptimistic = 3 'DAO.LockTypeEnum
	Set dbeng = CreateObject("DAO.DBEngine.36")
	Set db = dbeng.OpenDatabase("MDB_FILE_NAME_HERE", False, True)
	Set rs = db.OpenRecordset("TABLE_OR_QUERY_NAME_HERE", dbOpenSnapshot, , dbReadOnly)
	If Not(rs.EOF And rs.BOF) Then
		rs.MoveLast
		rs.MoveFirst
		Do until rs.EOF
			strData = ""
			For intField = 0 to rs.Fields.Count - 1
				strData = strData & rs.Fields(intField).Value & vbTab
			Next
			strData = Left(strData, Len(strData) - 1) & vbCrLf
			rs.MoveNext
		Loop
		strData = Left(strData, Len(strData) - 2)
	End If
	rs.Close
	db.Close