crear base de datos con tabla

[seba123neo]

Hola,para crear una base con campos,mira este codigo de la pagina de el guille:

Crear una tabla en una base de datos usando ADO y VB

y para comprobar la existencia de la base,pues comproba si existe el archivo de la base,algo asi:

Código:

Private Sub Form_Load()
On Error GoTo Falso
archivo = GetAttr("C:\archivo.txt")
MsgBox "El fichero existe", 32, "Archivo"
Exit Sub
Falso:
MsgBox "El fichero no existe", vbExclamation, "Archivo"
End Sub

o con Dir:

Código:

If Dir("C:\Archivo.txt") <> "" then
MsgBox "Existe el Archivo"
Else
MsgBox "No Existe el Archivo"
End If

o con FSO:

Código:

Private Function Existe(ruta As String) As Boolean
Dim busca As Scripting.FileSystemObject
Set buscar = New Scripting.FileSystemObject
If (buscar.FileExists(ruta)) Then
Existe = True
MsgBox "Existe el archivo"
Else
Existe = False
MsgBox "No existe el archivo"
End If
Set buscar = Nothing
End Function

Private Sub Form_Load()
Existe ("c:\archivo.txt")
End Sub

saludos.