I am creating an object, here is an excerpt of the code (contained in main.prg):

#INCLUDE WCONNECT.H
define class StartupTest as custom 
Function Init
	oShell = CREATEOBJ('Wscript.Shell')
	create database (cDBName)
	set database to eval(cDBName)
endfunc
enddefine

When I try to make it go from the following code:

set procedure to main.prg
oHereObj = createobject('StartupTest')
oHereObj.Init()

I get an error "Statement is not valid in a class definition" at the create database line. How do I make a DBC?