Visual Basic - crea base de datos

hola, como puedo crear una base de datos con CreateDatabase pero que sea para Jet 4.0 y no para 3, porque si cuando se abre desde access pide actualizar la base de datos.
Y Como puedo hacer para crear una consulta desde Vb

Fijate con ADOX, esta es una forma otra es con sentencias SQL DML (CREATE DATABASE, CREATE TABLE) pero creo que es más complejo. Esta es una forma:

Dim objCatalog As Catalog, objTable As Table
Set objCatalog = New Catalog
objCatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MiBase.mdb"
Set objTable = New Table
objTable.Name = "TablaNueva"
objTable.Columns.Append "Columna1", adInteger
objTable.Columns.Append "Columna2", adInteger
objTable.Columns.Append "Columna3", adVarWChar, 50
objCatalog.Tables.Append objTable

y como hago para crear una consulta y como puedo hacer una clave principal

Para crear la clave principal: http://support.microsoft.com/?kbid=252908

Para crear una vista: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/adoddlo1_19.asp

En http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/adoddlo1_3.asp tienes la referencia de ADOX.