codice:
        Dim ID% = 3
        'se non č nullo: Comune = "'" & Comune & "'", variabile rachiusa da apici
        Dim Comune$ = "Null"

        'se non nullo: Numero = stringa numerica non rachiusa da apici
        Dim Numero$ = "Null"

        Dim sql$ = "UPDATE COMUNE SET COMUNE = " & Comune & ", NUMERO = " & Numero & " WHERE ID = " & ID
        Dim con As New OleDbConnection(ConnectionString())
        con.Open()
        Dim cmd As New OleDbCommand(sql, con)
        cmd.ExecuteNonQuery()
        con.Close()
dove ConnectionString() č:
codice:
    Private Function ConnectionString() As String
        Return "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documenti\Interdev\prova.mdb;"
        'Return "File Name=C:\Documenti\Interdev\Prova_Access.UDL"
    End Function
Spudoratamente copiata da Access:
UPDATE Comune SET Comune.Comune = Null, Comune.Numero = Null WHERE (((Comune.ID)=3))