ADOX y añadir tablas a base de datos access

Un saludo y gracias de antemano
Tengo el siguiente codigo para añadir una tabla a una base de datos access
Private Sub btnAñadirTabla_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnAñadirTabla.Click

Dim Base As New ADOX.Catalog

Base.ActiveConnection = Proveedor (en esta linea da error)

Dim Tabla As New ADOX.Table

With Tabla

.Name = "Clientes"

.Columns.Append("IDCliente", ADOX.DataTypeEnum.adInteger)

.Columns.Append("Nombre", ADOX.DataTypeEnum.adVarWChar, 30)

.Columns.Append("CIF", ADOX.DataTypeEnum.adVarWChar, 9)

.Columns.Append("Domicilio", ADOX.DataTypeEnum.adVarWChar, 50)

.Columns.Append("CPostal", ADOX.DataTypeEnum.adLongVarChar)

.Columns.Append("Localidad", ADOX.DataTypeEnum.adVarWChar, 30)

.Columns.Append("Provincia", ADOX.DataTypeEnum.adVarWChar, 20)

.Columns.Append("Telefono", ADOX.DataTypeEnum.adVarWChar, 10)

.Columns.Append("Fax", ADOX.DataTypeEnum.adVarWChar, 10)

.Columns.Append("Notas", ADOX.DataTypeEnum.adLongVarWChar, 100)

End With

Base.Tables.Append(Tabla)

End Sub

El error que me lanza es el siguiente

*****************************Excepción no controlada del tipo
'System.Runtime.InteropServices.COMException' en WindowsApplication1.exe

Información adicional: Argumentos incorrectos, fuera del intervalo permitido
o en conflicto con otros.*************

Hola,

Has referenciado a la libreria Microsoft ADO Ext 2.7 For DDL ANd Security,
de la ficha COM del cuadro de dialogo Agregar Referencia??

Saludos / Best regards

Mario Lacunza
Email:
Webiste: http://www.lacunza.tk
Lima - Peru

Agustin Rivera Navas escribió:
Mostrar la cita

Un saludo y gracias de antemano
Tengo el siguiente codigo para añadir una tabla a una base de datos
access
Private Sub btnAñadirTabla_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles btnAñadirTabla.Click

Dim Base As New ADOX.Catalog

Base.ActiveConnection = Proveedor (en esta linea da error)

Dim Tabla As New ADOX.Table

With Tabla

.Name = "Clientes"

.Columns.Append("IDCliente", ADOX.DataTypeEnum.adInteger)

.Columns.Append("Nombre", ADOX.DataTypeEnum.adVarWChar, 30)

.Columns.Append("CIF", ADOX.DataTypeEnum.adVarWChar, 9)

.Columns.Append("Domicilio", ADOX.DataTypeEnum.adVarWChar, 50)

.Columns.Append("CPostal", ADOX.DataTypeEnum.adLongVarChar)

.Columns.Append("Localidad", ADOX.DataTypeEnum.adVarWChar, 30)

.Columns.Append("Provincia", ADOX.DataTypeEnum.adVarWChar, 20)

.Columns.Append("Telefono", ADOX.DataTypeEnum.adVarWChar, 10)

.Columns.Append("Fax", ADOX.DataTypeEnum.adVarWChar, 10)

.Columns.Append("Notas", ADOX.DataTypeEnum.adLongVarWChar, 100)

End With

Base.Tables.Append(Tabla)

End Sub

El error que me lanza es el siguiente

*****************************Excepción no controlada del tipo
'System.Runtime.InteropServices.COMException' en WindowsApplication1.exe

Información adicional: Argumentos incorrectos, fuera del intervalo
permitido o en conflicto con otros.*************