The following code generates the exception on o_DBEngine.CreateDatabase:

Public Sub New()

Dim o_DBEngine As New DBEngine
Dim o_Database As DAO.Database
Dim o_WorkSpace As DAO.Workspace
Dim o_TableDef As New TableDef

' Create and open the main database
If (Dir(Application.StartupPath + "\" + modUtilities.DATABASE_NAME) = "") Then
Try
InitializeComponent()

o_DBEngine.CreateDatabase(modUtilities.DATABASE_NAME, "General") <-------- EXCEPTION ON THIS LINE
o_WorkSpace = o_DBEngine.CreateWorkspace(MAINWS, "admin", "")
o_Database = o_DBEngine.Workspaces(MAINWS).OpenDatabase(modUtilities.DATABASE_NAME)
o_TableDef.Name = "Person"
o_TableDef.CreateField("PersonID", DAO.DataTypeEnum.dbLong)
o_TableDef.Fields("PersonID").Attributes = DAO.FieldAttributeEnum.dbAutoIncrField
o_TableDef.CreateField("FirstName", DAO.DataTypeEnum.dbText, 255)
o_TableDef.CreateField("LastName", DAO.DataTypeEnum.dbText, 255)
Catch o_Exception As Exception
MsgBox("Exception: " + o_Exception.Message)
End Try
End If
End Sub

Has anybody over come this? I have re-installed MDAC 2.8 to no avail. I'd really appreciate some help. Thank you.