acces-visual basic 6.0

[genito]

Hola
Si con lo de abrir access te refieres a abrir la conexión a la BD lo puedes hacer de esta manera:

Public Function AbrirConexionAccess() As Boolean

Static bOpen As Boolean

On Error GoTo Errcnnaccess
If bOpen = False Then
Set cnnAccess = New ADODB.Connection
cnnAccess.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0; DataSource= " & sRutaBaseDatos & _
";Persist Security Info = False"
cnnAccess.Open
bOpen = True
End If
AbrirConexionAccess = True
Exit Function

Errcnnaccess:
MsgBox Err.Number & ", " & Err.Description, vbCritical

End Function

Para crear las tablas puedes hacerlo así (aquí te pongo un ejemplo de unas tablas mias):

'CREAR LA BASE DE DATOS
Set cCataleg = New ADOX.Catalog
cCataleg.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPathBD & ";"
'CREAR LA TABLA
Set cTaula = New ADOX.Table
With cTaula
.Name = "PELICULAS"
.Columns.Append "ID_P", adDouble
.Columns.Append "titulo", adVarWChar, 100
.Columns.Append "duracion", adVarWChar
.Columns.Append "año", adVarWChar, 100
.Columns.Append "director", adVarWChar, 70
.Columns.Append "genero", adVarWChar, 30
.Columns.Append "pais", adVarWChar, 60
.Columns.Append "tamaño", adVarWChar, 8
.Columns.Append "fecha_desc", adDate
End With
'AGREGAR LA TABLA A LA BASE DE DATOS
cCataleg.Tables.Append cTaula

'DESTRUIR LOS OBJETOS
Set cTaula = Nothing
Set cCataleg = Nothing
End Sub

Espero que con esto puedas hacer algo ya.
Un saludo