Bases de Datos - crear bases de datos en vb

quiero saber si se puede crear una bd en vb y como la puedo crear gracias

nota : soy nuevo en esto

sitienes la base de datos para realisar esa accion que es como aser un como registro para cuando quieren bajar programas de una pagina y te pide inscribirte primero para poder bajarlo
si lo tienes te agradeseria que me lo embiaras a mi correo [email protected] te estare agradecido.

Prueba con este codigo, tienes que crear un modulo y aqui tienes un ejemplo:

Private Sub CrearBase(sBase As String)
'Crear la base de datos indicada
'
Dim Db As Database
Dim Fd As Field
Dim Tb As New TableDef 'Definir una Tabla
Dim Idx As New Index 'Para crear un índice
Dim i As Integer

Set Db = CreateDatabase(sBase, dbLangSpanish, dbVersion20)

Set Tb = Db.CreateTableDef("Tareas")

'Vamos a crear cada uno de los campos

Set Fd = Tb.CreateField("ID", dbLong)

'Ahora vamos a asignar las propiedades de contador, etc.

Fd.Attributes = dbAutoIncrField Or dbUpdatableField Or dbFixedField
Tb.Fields.Append Fd
'El resto de los campos
Set Fd = Tb.CreateField("Fecha", dbDate)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("Asunto", dbText, 255)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("Descripcion", dbMemo)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("FechaInicio", dbDate)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("FechaTermino", dbDate)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("Terminada", dbInteger)
Tb.Fields.Append Fd
'Creamos un índice con el ID
Idx.Name = "PrimaryKey"
Idx.Unique = True
Idx.Primary = True
Idx.Fields = "ID"
Tb.Indexes.Append Idx
'Añadimos la tabla a la base
Db.TableDefs.Append Tb
'
'Creamos la otra tabla: Anotaciones
Set Tb = Db.CreateTableDef("Anotaciones")
'El campo ID, es el contador, etc.
Set Fd = Tb.CreateField("ID", dbLong)
Fd.Attributes = dbAutoIncrField Or dbUpdatableField Or dbFixedField
Tb.Fields.Append Fd
'El resto de los campos
Set Fd = Tb.CreateField("Fecha", dbDate)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("Tema", dbText, 50)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("Asunto", dbText, 255)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("Medio", dbText, 255)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("Localizacion", dbText, 255)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("Descripcion", dbMemo)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("Detalle", dbLongBinary)
Tb.Fields.Append Fd
'Creamos un índice con el ID
Set Idx = Nothing 'Quitar la referencia anterior
Idx.Name = "PrimaryKey"
Idx.Unique = True
Idx.Primary = True
Idx.Fields = "ID"
Tb.Indexes.Append Idx
'Añadimos la segunda tabla a la base
Db.TableDefs.Append Tb
'Cerramos la base
Db.Close

MsgBox "Nueva base de datos " & sBase & " creada.", vbInformation
End Sub

Cualquier duda, me escribes. Un saludo.

Gracias me va ayudar mucho esto que me envias si tengo dudas te envio un mensaje

PERO TODO ESTA CODIFICACION DONDE LA METO?