3343 Error- Unrecognized database format

[Billy Bobster]

VB 6.0 sp3, Access 97, Win98

Hi all,

The following snippet runs without error. But when i try to open the
test.mdb file it errors with 3343. Database wont repair either.

Thanks for any help,
me

' ' ' ' ' ' ' ' ' '
Dim NewDB As Database
Dim NewTable As TableDef
Dim NewField As Field

Set NewDB = DBEngine.Workspaces(0) _
.CreateDatabase("Test.mdb", dbLangGeneral)

Set NewTable = NewDB.CreateTableDef("Table1")
Set NewField = NewTable.CreateField("String1", dbText)
NewTable.Fields.Append NewField
NewDB.TableDefs.Append NewTable

NewDB.Close

[Billy Bobster]

Just to follow up... Problem seems to be be with DAO 3.6.
I can use (set reference to) DAO 3.51 and code works fine.

On Fri, 24 Mar 2000 22:47:29 GMT, NoSpamPlease@Bogus.com (Billy
Bobster) wrote:

>VB 6.0 sp3, Access 97, Win98
>
>Hi all,
>
>The following snippet runs without error. But when i try to open the
>test.mdb file it errors with 3343. Database wont repair either.
>
>Thanks for any help,
>me
>
>' ' ' ' ' ' ' ' ' '
>Dim NewDB As Database
>Dim NewTable As TableDef
>Dim NewField As Field
>
>Set NewDB = DBEngine.Workspaces(0) _
> .CreateDatabase("Test.mdb", dbLangGeneral)
>
>Set NewTable = NewDB.CreateTableDef("Table1")
>Set NewField = NewTable.CreateField("String1", dbText)
>NewTable.Fields.Append NewField
>NewDB.TableDefs.Append NewTable
>
>NewDB.Close