Visual Basic - guardar archivo de access

hola

estoy intentando guardar una base de datos en access con un commondialog, el problema es que no me esta guardando el archivo y soy nuevo en visual, espero y me puedan ayudar.

Private Sub Command1_Click()
On Error GoTo ErrHandler
CD.Filter = "Access File(*.mdb)|*.mdb|Text File (*.txt)|*.txt"
CD.ShowSave

Set cCataleg = New ADOX.Catalog
cCataleg.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & dir(CD.FileName) & ";"

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

cCataleg.Tables.Append cTaula

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

de antemano muchas gracias

ya me funcion, de todas maner muchas gracias