Visual Basic - UREGENTE ! Crear una base de datos

Hola, tengo un problema.... necesito poder crear bases de datos .mdb desde el código, y baje una funcion que al parecer hace eso pero me dice que no puede ser ejecutada fuera de bloque TYPE, ya cheque y esta declarada Publica y no tiene ningún end type, y eso es lo que más me confunde.. si alguien tiene la solucion de esto o bien sabe otra manera me urge.. de ANTEMANO MUCHAS GRACIAS !!

La funcion es esta :

Public Function CreateDatabase(DBFullPath As String, InitialTable As String) As Boolean

'Crea una base de datos con una tabla

Dim db As Database
Dim td As TableDef
Dim f As Field

On Error GoTo ErrorHandler
Set db = DBEngine.CreateDatabase(DBFullPath, dbLangGeneral)
Set td = db.CreateTableDef(IntialTable)
Set f = td.CreateField("ID", dbLong)
td.Fields.Append f
db.TableDefs.Append td

CreateDatabase = True
ErrorHandler:
If Not db Is Nothing Then db.Close

End Function