Also, some more details may be useful!
To create a database at run-time, you can't be running access, as it is a file-open type of application. You would need to have an access database containing the code too then create ANOTHER database, unless you are talking about writing a plug-in for access itself.
What are you trying to acheive from / by this?
Dim Cn as New OleDBConnection
Dim Cmd as New OleDBCommand
cn.ConnectionString="put_db_connection_string_of_database_you just created"
cmd.CommandText="Create table TestTable (col1 int primary key, col2 text(40))"