Dim queryString, connString As String
        Try
            connString = "tuaconnessione"
            Using cnn As New OleDbConnection(connString)
                cnn.Open()
                queryString = "INSERT INTO Iscrizione (NumeroContratto) VALUES (@NumeroContratto)"
                Dim cmdInsDati As New OleDb.OleDbCommand(queryString, cnn)
                if frmIscrizione.txtNumeroContratto.Text = "" then
               cmdInsDati.Parameters.Add("@NumeroContratto", OleDb.OleDbType.Integer, 4, "NumeroContratto").Value = 0
else
cmdInsDati.Parameters.Add("@NumeroContratto", OleDb.OleDbType.Integer, 4, "NumeroContratto").Value = Integer.Parse(frmIscrizione.txtNumeroContratto.Text)
end if
cmdInsDati.ExecuteNonQuery()
                cnn.Close()
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try