for DDL and Security . ». 
 3  digitare quanto segue per dichiarare le variabili : 
 
 Dim cn As ADODB.Connection Dim 
 
 gatto come ADOX.Catalog 
 
 Dim objTable Come ADOX.Table 
 
 Dim sqlstr As String 
 
 Cn = New ADODB . collegamento 
 
 Cat = New ADOX.Catalog 
 
 objTable = New ADOX.Table 
 4 
 digitare quanto segue per creare una nuova variabile e impostare a NULL : 
 
 Dim value As VariantType 
 valore 
 = Constants.vbNull 
 5 
 digitare quanto segue per effettuare una connessione al database di Access : 
 
 Cn . Open ( "Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = C : \\ Northwind 2007.accdb " ) per 
 Cat.ActiveConnection = Cn 
 
 modificare il codice seguente e digitare il percorso e il nome per il database: 
 
 C : \\ Northwind 2007.accdb 
 6 
 Digitare quanto segue per creare una nuova tabella denominata " ADOXTable " : 
 
 objTable . name = " ADOXTable " 
 
 objTable.Columns.Append ( " ID " , ADOX.DataTypeEnum.adInteger ) per 
 objTable.Columns.Append ( " IdDesc " , ADOX.DataTypeEnum.adWChar ) 
 
 cat.Tables.Append ( objTable ) economici 7 
 digitare quanto segue per inserire un nuovo record di dati con un valore NULL : 
 
 sqlstr = " INSERT INTO " & ( objTable.Name ) & " ( ID , IdDesc ) " 
 
 sqlstr = sqlstr & " VALUES ( 5 , " & valore & " ) ; " 
 
 cn.Execute ( sqlstr ) 
 Pagina 8 
 digitare quanto segue per rilasciare le variabili dalla memoria : 
 
 Cat = Nothing 
 
 cn.Close ( ) per 
 Cn = Nothing 
 
 Premere " F5 " per eseguire il programma, quindi fare clic su " Button1 ".