eVB - ActiveX component cannot be created

[holly]

Hi

I've been issued with some eVB code which I need to get working... when I run the code the app fails 'ActiveX component cannot be
created' has anyone ever come across the same problem using
embedded VB code..........

Private Sub CreateDB()
Dim cat As ADOCE.Catalog

  'Create the database
  Set cat = CreateObject("ADOCE.Catalog.3.1") 'errors on this line
  cat.Create gSQLEProvider + gFullFileSpec
  Set cat = Nothing

End Sub

Thanks