Salve a tutti.
Vorrei fare un inserimento particolare.
Ho vari checkbox e alcuni campi text.
In fondo ho un pulsante inserisci.

Vorrei che ogni qualvolta si premesse il pulsante facesse queste operazioni:
scrivo in pseudocodice perchè non conosco la sintassi corretta.
codice:
Dim valoreOPT;
if (A.value) Then
 valoreOPT = 'A';
elseif (B.value= Then
 valoreOPT = 'B'
elseif (C.value) Then
 valoreOPT = 'C'

dim query, Insert as String
query = "Select MAX(idInterno),numero FROM Interno Where lettera =" + valoreOPT

Insert = "Insert Into interno values('',valoreOPT,query['numero']++,'paolo'"
Qualcuno mi puo' aiutare?