codice:
Public Sub query_inserisci_allaccio(tipo As String, giorni As Integer, giornirim As Integer, attacco As Date, stacco As Date, piazzola As Integer, compreso As Boolean)
MsgBox compreso
rs1.Open "insert into corrente  (tipo,giorni,giornirim,attacco,stacco,pi
azzola,compreso) values ('" & tipo & "', '" & giorni & "', '" & giornirim & "', '" & CDate(attacco) & "', '" & CDate(stacco) & "', '" & piazzola & "', '" & iif(compreso,"True","False") & ")", cn, adOpenStatic, adLockOptimistic, adCmdText
End Sub