Crear un acces desde VB

[Thonso22]

Hola a todos.

Soy nuevo en esto del VB, y tengo un problema.

Me han pedido que a partir de unos datos, al hacer click en un boton, tengo que generar un acces, y este que tenga una tabla con los datos.

Aguien sabe como hacerlo? Agradeceria un pequeño ejemplo.

Gracias a todos.

[Thonso22]

Hola.

Ya he encontrado la solucion, ahora solo me falta rellenar dicha tabla....

Pongo el ejemplo para el que lo quiera...

un saludo

Dim BD As Database
Dim RC As Recordset
Dim Tabla As New TableDef
Dim campos(1 To 2) As New Field

Set BD = CreateDatabase("C:\contrasena.mdb", dbLangSpanish, 0)

If Err.Number = 3204 Then

Set BD = OpenDatabase("C:\contrasena.mdb")

Else

Tabla.Name = "misContrasenas"

campos(1).Name = "ID"
campos(2).Name = "Contrasena"

campos(1).Type = dbText
campos(2).Type = dbInteger

Tabla.Fields.Append campos(1)
Tabla.Fields.Append campos(2)

BD.TableDefs.Append Tabla

End If

Set BD = OpenDatabase("C:\contrasena.mdb")
Set RC = BD.OpenRecordset("misContrasenas", dbOpenDynaset)