ABRE E INCLUIR CAMPOS EM ACCESS

CRIO ASSIM :

****************

Private Sub Command2_Click()
    Dim cat As New ADOX.Catalog
    Dim tbl As ADOX.Table
    Dim idx As New ADOX.Column

cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:System LocDebitos.mdb;"
    Set tbl = cat.Tables("Contatos")
    idx.Name = "VALOR_TOTAL"
    idx.Type = adDouble
    tbl.Columns.Append idx
    Set cat = Nothing
End Sub

**********************************

O QUE GOSTARIA É: DE SABER COMO INCLUIR FORMATO "PADRA" E DIZER QUE O VALOR PADRAO É "0"

OBRIGADO