Very Computer

I try to create a database file with Access2000 but I can't read it with VB6
(DAO3.6 Library installed). Why ? Pls help?

Thanks
Johnny

I have the same problem. I am running Win98, VB6 SP3 - upgrade from VB5 SP3,
Office Premium 2000 - upgrade from Office 97 Pro SR1.

Before I made a test project in VB, I ran the mdac_typ.exe to get the latest
jet files. And I after I made my test project, I ran into the same problem
you have. I went to MSDN on-line and searched for Unrecognized Database
Format. It gave me a page of info that seems like a work-around to a known
bug with VB6 and Access 2000. The title is "Intrinsic Data Control Is Usable
with Access 2000 Databases (Joke). They give you the standard code to put on
the open form event which establishes a database connection and a recordset.
I followed the instructions and can access my database OK, but I have many,
many third party data aware controls that rely on a data aware datacontrol.

I am researching this further. If I come up with anything I will let you
know.

Larry Houston
Viking Software Group

Because Access 2000 uses ADO not DAO any more...... it's their Y2K upgrade

Hunh?  Where did you get that?  DAO 3.6 is precisely what you use to access
Access 2000 databases.  ADO is an alternative and, in my opinion (flawed as
it may be), not a terribly good one at this point...

Manish

You can access the Access 2000 database with DAO3.6  you just can't drop a data
control on a form and get it to work.

Quote:> You can access the Access 2000 database with DAO3.6  you just can't drop a
data
> control on a form and get it to work.

Actually, yes you can use a data control with Access 2000. You just have to
hard code everything (drop down properties related to the database don't
work).

The following is an excerpt from an MS web page. I found I had to tweak it a
little, primarily to accommodate passwords.

Private Sub Form_Load()
Dim daoDB36 As Database
Dim rs As Recordset
Dim sPath As String

sPath = _
"C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
Set daoDB36 = DBEngine.OpenDatabase(sPath)
Set rs = daoDB36.OpenRecordset("Customers")
Set Data1.Recordset = rs
End Sub

--
Mark Lewis
Corporate Consultants
"There are always alternatives"