Só para criar campos

 

Public Sub ATUALIZA_CADPRO()
On Error GoTo ERROR_S:
    Dim DB As Database
    Dim tdfNew As TableDef
    Dim fldLoop As Field
    Dim Regis As Recordset
   
    Set DB = OpenDatabase("C:BD.mdb")

    Set tdfNew = DB.TableDefs("Tabela")

    With tdfNew
        .Fields.Append .CreateField("Sub_Grupo", dbText, 15)
    End With
ERROR_S:
    MsgBox Err, , "Tabela Usuários"

End Sub

 

Para criar tabelas

 

Sub CRIAR_TABELA_ESTOQUE()
On Error GoTo TrataErro
        Set DB = OpenDatabase("C:BD.mdb")
        Set tbl = DB.OpenRecordset("TABELA")
        MsgBox "Tabela  já existente", vbInformation, "Confirme"
    Exit Sub
TrataErro:
    If Err = 3078 Then
        Set n_tbl = DB.CreateTableDef("ESTOQUE")
            Set fld = n_tbl.CreateField("Data_Entrada", dbDate)
            n_tbl.Fields.Append fld
            DB.TableDefs.Append n_tbl
            Set fld = n_tbl.CreateField("Fornecedor", dbText, 50)
            n_tbl.Fields.Append fld
        Else
            MsgBox Err.Number
    End If
End Sub

Cara, achei muito complicado... :) olha eu utilizo  ADO, voce poderia me dar um exemplo para que eu possa aplicar na minha realidade. veja:

 

tenho o MDB chamado SIA

 

1 ) Quero criar uma tabela com nome TAB_PRODUTOS e quero inserir os campos CODIGO,NOME

 

2 ) já tenho uma tabela com o nome TAB_CLIENTES, quero apenas incluir mais dois campos, ICMS,IPI

 

obrigado,

um abraço,

sd

Mano-PB

 

Tenta essa dica: http://www.vbweb.com.br/dicas_visual.asp?Codigo=750&Classificacao=

 

Espero ter ajudado,

 

T+,

Amigo, complicado é ter que ir até o cliente só para rodar atualização no BD, tenho um sistema a 100km de distância da minha cidade isso sim é complicado. este exemplo acima esta DAO.