Title:     
Web-Link: http://www.arabteam2000-forum.com/index.php?showtopic=119633
Description: DBEngine Example
Department: Visual Basic forum
Develop Using: Microsoft Visual Basic 6.0
Assistant Tool(s): DAO
Version: 1.00
Last update: 27 February 2007
Date: 27 February 2007
Author: Eng. Usama El-Mokadem: musama@hotmail.com

Topic(119633) [Feb 27 2007, 01:03 AM]: By  mh66_6: http://www.arabteam2000-forum.com/index.php?showuser=65762
=======
-----BEGIN TOPIC-----
  
 
            XP 
Public D1 As Database
Public T1 As Recordset
Public Folder
Public Const PassWord = "xd56"
Public Sub Main()
  Set D1 = DBEngine.Workspaces(0).OpenDatabase(Folder & (ABoot.RR.Text), False, False, ";pwd=" & PassWord)
  Set T1 = D1.OpenRecordset("Adat", dbOpenTable)
Exit Sub
   
91 
object variable or with block variable not set

-----END TOPIC-----

Solution:
=======
-----BEGIN SOLUTION-----
  
-----END SOLUTION-----

Attachments:
============
DBEngine.zip
The (Attached) Solution Suggested By Eng. Usama El-Mokadem: http://www.arabteam2000-forum.com/index.php?showuser=98027

CONTACT INFORMATION:
=======================
  Eng. Usama El-Mokadem
  Email: musama@hotmail.com
  Web: http://musama.tripod.com
  Mobile: 0020 10 1289308
  Egypt
