Criar um exemplo de método (VB)
O código a seguir mostra como criar um novo banco de dados do Microsoft Jet com o método Create.
Attribute VB_Name = "Create"
Option Explicit
' BeginCreateDatabaseVB
Sub CreateDatabase()
On Error GoTo CreateDatabaseError
Dim cat As New ADOX.Catalog
cat.Create "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='new.mdb'"
'Clean up
Set cat = Nothing
Exit Sub
CreateDatabaseError:
Set cat = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
' EndCreateDatabaseVB