VB.NET - Create new MS Access Database using ADOX

[Pirate]

Private Sub Command1_Click()
'Shows how to create an Access 2000 database and append tables, fields, indexes using ADOX. Don't forget
'a reference to ADOX (Microsoft ADO Ext. 2.x for DDL and Security)
  Dim ADOXcatalog As New ADOX.Catalog
  Dim ADOXtable As New Table
  Dim ADOXindex As New ADOX.Index
  
   On Error GoTo errhandler
  ADOXcatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:\newdata.mdb"
 
  On Error Resume Next
 
  ADOXcatalog.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& "c:\newdata.mdb"
  
  'name table, append fields to table
  ADOXtable.Name = "Employees"
  ADOXtable.Columns.Append "LastName", adVarWChar, 40
  ADOXtable.Columns.Append "ID", adInteger
  ADOXtable.Columns.Append "Department", adVarWChar, 20
 
  'append tables to database
  ADOXcatalog.Tables.Append ADOXtable
 
 
  'internal index on two fields
  ADOXindex.Name = "TwoColumnsIndex" 'name of index
  ADOXindex.Columns.Append "LastName"
  ADOXindex.Columns.Append "ID"
 
  ADOXtable.Indexes.Append ADOXindex
errhandler:
  If Err.Number = -2147217897 Then
    MsgBox "Database already exists"
ElseIf Err.Number <> 0 Then
    MsgBox "Err " & Err.Description & "; operation not complete"
End If
Set ADOXtable = Nothing
Set ADOXindex = Nothing
Set ADOXcatalog = Nothing
End Sub