Visual Basic - Crear y restaurar BD en SQL

Alguien sabes como crear y restaurar una base de datos de SQL programando en Visual Basic 6.0, si alguien me puede ayudar por favor escribanme a mi correo
[email protected]
[email protected]

Ejemplo_ De Crear una Base de datos con algunos Campos

Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table

Set cat = New ADOX.Catalog
Set tbl = New ADOX.Table

cat.ActiveConnection = "Provider=" & cboProvider.Text & "Data Source=" & txtNombreBase.Text & ";"

With tbl
.Name = txtNombreTabla.Text
.Columns.Append "ID", adInteger
If cboProvider.Text = "Microsoft.Jet.OLEDB.3.51" Then
' Para Access 97
.Columns.Append "Nombre", adVarChar, 50
.Columns.Append "email", adVarChar, 100
.Columns.Append "Telefono", adVarChar
.Columns.Append "Observaciones", adLongVarChar
Else
' Para Access 2000
.Columns.Append "Nombre", adVarWChar, 50
.Columns.Append "email", adVarWChar, 100
.Columns.Append "Telefono", adVarWChar
.Columns.Append "Observaciones", adLongVarWChar
End If
.Columns("Nombre").Attributes = adColNullable
.Columns("email").Attributes = adColNullable
.Columns("Telefono").Attributes = adColNullable
.Columns("Observaciones").Attributes = adColNullable
End With

cat.Tables.Append tbl

Set tbl = Nothing
Set cat = Nothing

PD:Pagina_http://www.elguille.info/vb/bases/ADO/indiceADO.htm#ado29Sep01

Deves agregar esta Referencias
"Microsoft ADO Ext. 2.6 for DDL and Security "

Y Cambiar el Proveedor

XD